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BEST AVAILABLE IMAGES 

Defective images within this document are accurate representations of 
the original documents submitted by the applicant. 

Defects in the images may include (but are not limited to): 

• BLACK BORDERS 

• TEXT CUT OFF AT TOP, BOTTOM OR SIDES 

• FADED TEXT 

• ILLEGIBLE TEXT 

• SKEWED/SLANTED IMAGES 

• COLORED PHOTOS 

• BLACK OR VERY BLACK AND WHITE DARK PHOTOS 

• GRAY SCALE DOCUMENTS 

IMAGES ARE BEST AVAILABLE COPY. 



As rescanning documents will not correct images, 
please do not report the images to the 
Image Problem Mailbox. 




Overview 

Glob.ocx is a custom control developed to permit applications to communicate through shared 
memory. The term GLOB was coined-to refer to Global Objects. Globs contain data, type 
information, some user-defined areas, and a symbolic name, or label. This custom control 
provides a standard interface for creating, removing, and accessing shared memory and Globs 
within shared memory. The current implementation assumes that the applications are well- 
behaved as far as working together goes. This assumes that one application will not close 
or redefine the memory-mapped file (MMF) while others are accessing it 

Location of control: 



Control loaded at Base Address: 3000 0000 (hex) 



Memory-Mapped Files 

Memory-mapped files (MMF) are the only method available in Windows NT for applications to 
share memory. NT allows the user to map a file to a memory space, and to then perform either 
1/0 operations or pointer-based operations on the memory. (MMF and Globs work equally well 
under Windows 95) . . j 

GLOB-structured Memory-Mapped Files 

When a Glob control is initialized (when an instance of the Glob class is initialized) it opens the 
MMF and applies an overall structure to it. The first 172 bytes of the MMF contain the followina 
information 



Byte Offset 


Type 


N Bytes 


Descriotion 


0 


Inteaer 


4 


Size of the memory-mapped file 


4 


Integer 


4 


Offset of the first Giob position in the MMF 


8 


Integer 


4 


Offset of the next available Glob position in the MMF. (This may not 
always indicate the next position to be used however - if Giobs are 
erased, others may be created by reusing the erased space) 


12 


integer 


4 


Read only flap 


16 


integer 


4 


Runtime reference count. 


20 


integer 


4 


Number of 4 bvte Notify Maps in each Glob 


24 


byte 


40 


unused space. 


o4 1 Inteqer 


Variable 


list of window handles for the notification process 



Document: i :\SPX\Docs\GLOB.DOC (Version 1.2e) 




Confidential 



Page 2 



OB/07/00 



The Glob control creates a structure in the MMF which contains a name, some parameters, and 
data. The foliowing is the current structure of a Glob. 



Byte 
Offset 


Name 


Type - 
* 


Byte 
Size 




0 


Size 


Long 


4 


Size of Glob; data, and notify maps 


4 


GlobNaTne 


BYTE 


16 


ASCII name of Glob 


20 


DiTn2Size 


Short 


2 


2nd dimension 


22 


DimlSize 


Short 


2 


1st dimension 


24 


Elementsize 


Short 


2 


byte size of each array element 




lype 


Short 


2 


type of array element 


O D 

2d 




Short 


2 


User-defined parameter 


30 


Command 


Short 


2 


Command to the device 


32 


Status 


Short 


2 


Status from the device 


34 


DataSi'ze 


Short 


2 


Actual data area used 


36 


Unitslndex 


Long 


■ 4 


Glob index of a Unit-of -Measure label 


40 


Link 


Long 


4 


Relative link to another Glob. Add 
to current position to get new 
position. Links are user- defined. 


44 


NotifyMap 


Long 


4 


offset in the Glob where the notify 
maps can be found. The notify maps 
start right after the data. 


4B 


Data 


Any 


var . 


Data area , 


4 8+ data 
size 


NotifyMaps 


Long 


var. 


Notification handle maps for the 
notification process. 



GLOB.OCX 

The current implementation of Glob.ocx makes the following assumptions: 

The Memory-mapped file created is named "C:\GLOBMMP, this is the default name if a filename 
is not specified in the FileName property. 
This MMF starts as 8,1 96 bytes in length. 



BASIC GLOB METHODS AND PROPERTIES 

Glob/Blob compatibility. 

The Glob control is based on the Blob control and has the following properties in common with 
Blobs. Globs can replace Blobs in any application without modifying the source code in any way 
other than to globally replace "Blob" with "Glob". 

Note: The MMF files created by the Blob control are NOT compatible with the Glob control 
Code Examples. 

Ail code examples are in Visual Basic unless otherwise specified. For more infonr.ation on 
inserting custom controls into a Visual C++ (MFC) application, see the help entry on ActiveX 
control containers: Programming ActiveX controls. 
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AddNew method 



Syntax 
Remarks 



See Also 
Example 



Adds a new Glob to the memory-mapped file. 

G/of) .AddNew GlobName, Unitslndex, DimZSize, DimlSize, EiementSize, Type, 
Extra 

GlobName: the 1-16 character name of the Glob, if a Glob by this name already 
exists, that one is erased and its space becomes available for reuse. 

Unitslndex: Offset in the MMF of a unit-of-measure label. 0 if none. 

Dim2Size: Size of the second dimension in the data array. All data in a Glob is 
referenced through a zero-based 2-dimensional an-ay, using the Value property. 

DimlSize: Size of the first dimension in the data array. 

EiementSize: Size of each data element. (Long integers are 4-bytes, Short 
Integers are 2 bytes, and Bytes are 1 byte.) Element size is used along with 
DimlSize and Dim2Size to determine the size of the data area. 

Type: User-defined value. 

(USP Application note: values < 5 are the number of decimal places to 
assume for integer values - a Type value of 3 means that the value 123456 
represents 123.455, Another Type value in use is -1, meaning that the Glob 
is a non-data label Glob.) 

Extra: User-defined value. (USP Application note: this will be used to track the 
actual length of a waveform during print interactions) 

Note: The current implementation guards against memory coliisions. 
However it is not recommended that add or erase operations be used in a 
multiple-application environment unless you are certain that only one 
thread will be performing these operations on the MMF. 

Note:(4/24/98) If the AddNew method causes the MMF to expand and there 
are any other globs in existence in the system (not just the current 
application) the MMF may not be remaped properly and a memory access 
violation will occure. To avoid this problem, only add globs when it is 
certain that there are no other globs accessing the same MMF. 

AddNewEx 



Globl . AddNew "RPM" ,0,1,1,4,0,0 
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AddNewEx method 



Description 



Syntax 



Add a new Glob anla companion unit-of-measure Glob. If the specified unit-of- 
measure Glob already exists, no new unit-of-measure Glob will be added. 

GiobAddNewEx GlobName, UnitsName, DimZSize, DimlSize, ElementSize, 
Type, Extra 



Remarks 



GlobName: the 1-16 character name of the Glob. If a Glob by this name already 
exists, that one is erased and its space becomes available for reuse. 

UnitsName: 1..16 character name of the unit-of-measure Glob. If a unit-of- 
measure Glob with this name already exists, no new unit-of-measure Glob will be 
added. 

DimZSize: Size of the second dimension in the data an-ay. All data in a Giob is 
referenced through a zero-based 2-dimensional aaay, using the Value property. 

DimlSize: Size of the first dimension in the data an-ay. 

ElementSize: Size of each data element. (Long integers are 4-bytes, Short 
Integers are 2 bytes, and Bytes are 1 byte.) Element size is used along with 
DimlSize and DimZSize to detemnine the size of the data area. 

Type: User-defined value. (USP Application note: values < 5 are the number of 
decimal places to assume for integer values. A Type value of 3 means that the - 
value 123456 represents 123.455. 

Extra; User-defined value. ' (USP Application note: this will be used to track the 
actual length of a waveform during print interactions) 

Note: The current implementation guards against memory collisions. 
However it is not recommended that add or erase operations be used ip a 
multiple-application environment unless you are certain that only one 
thread will be performing these operations on the MMF, 
(see AddNew method) 



See Also AddNew 



Example 



Gl obi. AddNewEx "HC" , "PPM", 0, 0, 



0, 0 
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AvailSize property 



Description 

Syntax 

Remarks 

See Also 
Example 



Returns the number of bytes remaining in the Memory-mapped file. (Read Only) 
Longval = 6/ob.AvailSi2e 

The available size in the memory-mapped file will change as new Globs are 
added. If a Glob forces the file to resize itself larger, the change will be reflected 
in the FiieSize and the AvailSize properties. 

FileSize 

Labell. Caption = Gl obi .AvailSize 



Globlndex property 



Description 

Syntax 
Remarks 

Example 



Returns or sets the offset from the beginning of the Memory-mapped file. If 
Globindex is changed the location of the Glob will change, so care must be used. 

Value = Gto£).Globlndex 

In the cun-ent implementation, values cannot be less than 40 



Globl.GlobName - ^^C02" ^ attempt to ^link' with MMF 

If Globl . Globlndex = -1 Then ^ not found, create it 
Globl.AddNew 0, 1, 1, 4,-0, 0 

End If 



GlobName property 



Description 



The name of the Glob. Setting a value in the GlobName property causes the 
control to seek a Glob by that name, and 'link' up its properties etc. if it is found. 



Syntax 



G/oblGlobName = <string> 
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Remarks 

Globs currently have names of 16 characters or fewer. If a Glob is found, the 
properties will thereafter reflect the values in the Memory-mapped file. If a Glob 
is not found by the natne given, references to the GlobName property will return 
an empty string, and access to other properties will return the following values: 



Globlndex ' 


-1 


GlobPtr 


0 


Dim2Size 


-1 


DimlSize 


-1 


Command 


-1 


Status 


-1 



See Also 
Example 

Gl obi. GlobName = ^^C02" ' attempt to ^link' with MMF 

If Gl obi, Globlndex = -1 Then ' not foimd, create it 
Globl.AddNew ''002", 0, 1, 1. 4, 0, 0 

End If 



GlobPtr property 

Description 

32-bit pointer value pointing to the head of the current Glob in the memory- 
mapped file. 

Syntax 

Longval = G/ob.GlobPtr 

Remarks 

In Windows NT, this pointer is valid only within the cun^ent .process. It is intended 
for use with C or C++ programs which can take advantage of pointers. 

See Also 

DataPtr 

Example 

Dim L as Long 

L = Globl. GlobPtr ^ get in-process address of Glob 



CloseMMF method 



Description 

Unmaps the cun-ent memory view and closes the Memory-mapped file. Returns 
the status from closing the file. 

Syntax 

status = Glob.CloseMMF 

Remarks 

Note: Do not use in a multiple-application environment where other 
threads or processes may be using the current MMF . 
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Command property 



m 
SI 



m 



Description 

Syntax 

Remarks 

See Also 
Example 



User-defined 16-bit value. 
G/oi?.Command = IB-btt-vaiue 

Intended for use in conjunction with Status property for device control. By 
convention, the application 'owns' the Command property {can modify it), while 
the device handler must only read it 

Status 



Gl obi . Command = READ_ONCE 
While Globl. Status <> STATUS_COMPLETE 
DoEvents 

Wend 

Label 1 . Caption = Globl .Value ( 0., 0) 



done yet? 
wait 

display value 



DataPtr property 



Description 

Syntax 
Remarks 

See Also 
Example 



.32-bit pointer value pointing to the data area of the cun-ent Glob in the memory- 
mapped file. 

Longval = Gtob.DataPtr 

This pointer is valid only within the cun-ent process. It is intended for use with C 
or C++ programs which can take advantage of pointers. 

GiobPtr 

Dim L as Long 

L = Globl. DataPtr ' get in-process address of Glob's data 



DataSize property 



Description 

By convention: the actual amount of the data area in use. This is used to indicate 
how many bytes of the data area contain valid data - from 0 to (Dim2Si2e * 
Dim 1 Size * ElementSi2e)-1 . 

Syntax 

Value = G/o£). DataSize 

See Also 

Dim2Size, Dim 1 Size, EiementSize 

Example 

J% = Globl .DataSize 
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DimlSize property 



01 



L.I 



Description 

Syntax 
Remarks 

See Also 
Example 



Represents the second dimension in the 2-dimensionai array structure of Glob 
data. 

Value = G/ob.Dim1Size 

Changing this value for a Glob that already contains data will affect the 
calculations of the location of each data element. 

Dim2Size 



Dim d2 as long, dl as long 

^ clear my per cylinder waveform array 



Globl/GlobName = ^^WAVES/CYL" 
For d2 = 0 to Globl .Dim2Si2e - 1 

For dl = 0 Globl .DimlSize - 1 

Globl. Value { d2, dl ) = 0 

Next dl 
Next d2 



link up 
loop through 
ditto 

zero an element 



Dim2Size property 



Description 

Syntax 

Remarks 

See Also 
Example 



Represents the first dimension in the 2-dimensional array stnjcture of Glob data. 
Value = G/oh. Dim2Size 

Changing this value for a Glob that already contains data will affect the 
calculations of the location of each data element. 

DimlSize 

Dim d2 as long, dl as long 

' clear my per cylinder waveform array 



Globl.GlobName = ^^WAVES/CYL" 
For d2 = 0 to Globl .Dim2Si2e - 1 

For dl = 0 Globl .DimlSize - 1 

Globl. Value ( d2, dl ) = 0 

Next dl 
Next d2 



' link up 

' loop through 

^ ditto 

' zero an element 
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ElementSize property 



Description 

Syntax 
Remarks 

See Also 
Example 



Retrieves or sets the number of bytes in a single data element. A Glob's data 
area is made up of a two-dimensional array of elements of size ElementSize. 

Value = G/oi).EiementSize 

Changing this value for a Glob that already contains data will affect the 
calculations of the location of each data element and its accessed width. 



Dim2Si2e, Dim 1 Size 

' Read a 32 -bit integer as 4 8 -bit bytes 
Globl.GlobName = ^W_LONG_INTEGER'' 
Globl .DimlSize = 4 



Globl. ElementSize = 1 
Ql = Globl. Value ( 0, 0 
Q2 = Globl. Value ( 0, 1 
Q3.= Globl. Value ( 0, 2 
Q4 = Globl. Value ( 0, 3 



) 



4 elements 
1 byte each 
read Isb 



read msb 



Erase method 



Description 

Syntax 
Remarks 



See Also 
Example 



Clears the contents of the cun-ent Glob, including all formatting infomnation and 
data. The Glob can no longer be referenced. 

G/ob.Erase 

The erased area will be reused for new Globs being added if the new Globs will 
fit. Erasing a Glob and then adding it again immediateiy will most likely reuse the 
same area if the overall size of the new Glob is the same as or smaller than the 
original. 

Note: The current implementation guards against memory collisions. 
However it is not recommended that add or erase operations be used in a 
multiple-application environment unless you are certain tliat only one 
thread will be performing these operations on the MMF. 



AddNew, AddNewEx, EraseMMF 

Globl.GlobName = ^^RPM" 
Globl .Erase 



link to uhe ^^RPM" Glob 
clear it out (delete it) 
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EraseMMF method 



Description 

Syntax 
Remarks 



See Also 
Example 



Clears the entire Memory-mapped file and resets its internal pointers to initial 
values. This produces a "new" MMF. 

G/o£).EraseMMF 

Any Globs currently linked to the MMF will contain invalid information after this 
operation. 

Note: Do not use in a multiple-application environment unless you 
understand the impact on other applications. 



Erase 

Globl .EraseMMF 



pffft, you're history 



Extra property 



Description 
Syntax 

Example 



User-defined 1 6-bit integer. 
value = G/ob.Extra 
G/oJb. Extra = value 

' Tell print module to only use 100 bytes from waveform 
Globl -GlobName = "SECONDARY PARADE" 
Globl. Extra = 100 



FileSize property 



Description 

Syntax 

Remarks 

See Also 



Returns the current size of the MMF. Read-only. 
Value = G/ob,Fi!eSi2e 

The FileSize may change if a Giob is added to the MMF that will not fit in the 
current file. 

FileName 



FileName property 
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See Also 
Example 



PapeTI 

Returns or sets the file name of the cun-ent Memory-mapped file. 

String = G/ob.FileName 
G/ob-FileName =5 <string> 



In the cun-ent Implementation, the FileName is predefined as "C:\GLOBMMr, 
Changing this name will create a new MMF. The FileName may be a relative or 
absolute path. The FullPath property will contain the fully qualified pathname to 
the MMF. In general, if a full path designation is not specified in the FileName 
property then the FullPath will be generated by adding the current directory to the 
filename. 

Note: it is recommended that "C:\GLOBI\/IMF" not be used for any real 
application data. Use a unique name for each new application that uses 
MMF. 

FileSize 



"'assume our application directory is C:\Tnyapp 
Globl . FileName = ''.MYMMF" 

'the FullPath property will contain "'C; \Tnyapp\MyMMF" 
Globl -FileName = '^'C: \MYMMF" 

^the FullPath property will contain ^'CAmYMMF" 



GetFirstGJob method 



Description 

Syntax 
See Also 
Example 



Reads the first Glob in the'Memory-mapped-file. Returns a 32-bit pointer in the 
MMF if found, otherwise retums 0. 

point = G/ob. GetFirstGlob 

GetNextGiob 

^ build a list of all Globs in the MMF 
listl. Clear 

If Globl.GetFirstGlob then 

Listl .Additem Globl . GlobName 
■ While Globl. GetNextGiob 

Listl. additem Globl . GlobName 

Wend 

End If 



GetNextGiob method 



Description 

Reads the next Giob in the Memory-mapped-file. Retums a Boolean indicating 
whether or not a valid Glob was found. 
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Syntax 

Boolean = G/ob,GetNextGlob 

See Also 

GetFirstGlob 

Example 

build a list of all Globs in the MMF 
listl. Clear 

If ,G1 obi. GetFirstGlob then 

Listl,Additem Globl . GlobName 
miile Globl.GetNextGlob 

Listl.additem Globl -GlobName 

■Wend 

End If 



SI 



ill 



Link property 



J' Description 

H The name of ano^er glob that relates to this glob, 

ill Syntax 

III strValue = G/ob.Link 

%! GloLLink = strValue 

Example 

f| ' position Glob2 to the position in Globl. Link 

J: Glob2 .GlobName = Globl. Link 



Status property 



Description 

User-defined 1 6-bit value. 

Syntax 

G/oi3.Status = le-btt'vaiue 

Remarks 

Intended for use in conjunction with Command property for device control. By 
convention, the device 'owns* the Status property (can modify it), while the 
application must only read it 

See Also 

Command 
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Sub ReadMeasurement { ) 

On error goto Bad_Stuff 

GlobMeasurement .Value (0, 0) = AcguireSomeReading 

Exit Silb 
Bad_Stuff: 

GlobMeasurement .Status = err 
End Sub 



08/07/00 



Type 



Description 



Syntax 
Example 



User-defined 16-bil integer.. By convention Type contains values from 0 to 5 for 
integers that will be scaled into floating point nunnbers. In this case, the value is 
the number of decimal places implied in the integer. 

Further convention uses Type = -1 to indicate a Label Glob, containing no data. 
Value = G/ob.Type 



If Globl.Type = -1 then 

Printer. Print Globl . GlobName Sl ''Is A Label' 

End If 



UOM property 



Description 
Syntax 

Example 



The name of a unit-of-measure label Glob to be associated with this Glob. 

strVaiue = Glob.UOM 
. G/ob.UOM = strValue 

If Globl. UOM = GlobPer cent .GlobName Then 

' Globl uses unit-of-measure from GlobPercent 

End If 



Value property 



Description 



Syntax 



Remarks 



This is one of the methods for accessing the data portion of a Glob from within a 
Visual Basic program. 

G/ob. Value( <dim2>, <dim1 > ) = newvalue ' set the value into the Glob 

Globvalue = Gyojb.Vaiue( <dim2>, <dim1 > ) 'get the value 

If the array location results in a data element that is out of range, the new value 
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will not be written to the Glob. If attempting to read a data element with an invalid 
an'ay location, Value will return a -1. 

The return value is LONG (32-bit integer); if accessing data whose data 
elements are only 1 or 2 bytes long, the data values will be returned in the low 
order 8 or 16 bits 'of the 32-bit return value, as appropriate. 



Example 



Dim i as integer 

' fill a 512 byte Glob array of bytes with random values 

Globl.AddNew ^^VJAVEFORM" , 0, 1, 512, 1, 0, .0 ^ diml=512 

For i = 0 to 511 

Globl. Value { 0, i ) = rndO * 255 ' save md byte 

Next i 

' link with the ''Dwell per cylinder" Glob and print values 



Globl.GlobName = "DWELL/CYL" 

For i = 0 to NumberOf Cylinders - 1 

Printer . Print Globl. Value ( 0, i ) 

Next I 



' link up 

* loop through ' 

' access & print 



EXTENDED GLOB METHODS AND PROPERTIES 

The following methods and properties are new to the Glob control and are not available to the 
Blob control. 



AutoSendNotify Property 



Description 

Syntax 
Remarks 



if this propery is Tme' then any change jn any of the Value' properties or in the 
^Status' or 'Command' properties will cause the Change event to be fired. 



Globl .AutoSendNotify = <True/False> 



When this property is set to False, any changes in the value, status, or 
command properties will not cause a Change event to be fired by the cun*ent 
Glob interface. Other glob interfaces that change the properties will still cause a 
Change event. To fire a Change event, use the SendNotify method. This 
method will send a Change event to all glob interfaces that are registered to be 
notified. This functionality allows an entire array to be updated without sending a 
change event for each element in the an-ay. The event can be sent at the end of 
the update with the SendNotify method. 
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Globl . AutoSendNotify = False 
For X = 0 to 99 

Globl. ValueSD(x) = data (x) 

Next X 

Globl. SendNotify ID_VALUE, 0 
Globl .AutoSendNotify = True 



08/07/00 



aValueS, aValue16, aValue32 Properties 



Description 



Syntax 



Remarks 



See Also 
Example 



Array versions of the ValueS, ValuelB. and Value32 properties 



Globl. aVaiue8{0) = my_byte 
my_byte = Globl .aValuel 6(5) 



*write a byte value to the Glob 
'read a byte value from the Glob 



This property accesses the data in the Globs data area as a single dimension 
an-ay of the appropriate type. Due to the limitations of the Automation types, 
aValueSO returns a short integer (2 bytes) , aValue16() returns a short integer, 
and aVaiue32() retums a long integer (4 bytes). 

Values, Vaiue16, Value32 



Dim i as integer 

' fill a £12 byte Glob array of bytes with random values 

Globl. AddNew '^WAVEFORM", 0, 1, 512, 1, 0, 0 ^ diml=512 

For i = 0 to 511 

Globl. aVal ue8 { i ) = md() * 255 . ^ save md byte 

Next i 

' link with the *^Dwell per cylinder" Glob and print values 



Globl.GlobName = '^'DWEhh/CYh" 

For i = 0 to NumberOf Cylinders - 1 

Printer . Print Globl- aValueB ( i ) 

Ne>:t I 



' link up 

' loop through 

' access a -orint 



Document:T:\SPX\Docs\GLOB.DOC (Version 1.2e) 



Change Event 



Description 



Syntax 



This event is triggered if a Glob has registered for notification and the data in the 
Globs data area has been changed. 

4/24/98 update: 

This event wil! also fire if the status or command fields have been changed. Two 
parameters are passed in with the event as well. The first identifies the property 
that changed. The second is a data value that is user defined or in the case of a 
status or command change, the new values of these properties. 



Sub Glob 1_Change(ByVaI PropID as integer, ByVal Value as integer, 
ByVal SendlD as long) 
TO-DO: Put code here to handle change event 

exit sub 



Remarks 



Example 



The following PropID values are predefined and will be passed to the Change 
event if the AutoSendNotify property is set to True. 



ID_UNKNOWN 
ID_VALUE_^CHANGED 
ID_STATUS_CHANGED 
ID_COMMAND_CHANGED 



0 
1 
2 
3 



The SendlD parameter contains the Globlndex of the Glob that changed. This 
parameter can be used along with the NotifyOnChange property to have one glob 
interface monitor many Globs for changes. 



Sub Globl^Change (ByVal PropID as integer, ByVal Value as 
integer., ByVal SendlD as long) 

' identify which property changed 
Select Case PropID 

Case ID__VALUE_CHANGSD : 

'process value change 
Case ID_STATUS_CHANGED : 

■'process status change 
Case ID_COMMAND_CHANGED : 

'process command change 
Case ID__UNKNOWN: 

'process something. 

End Select 
Exit Sub 
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^11 
III 



FormatMMF Method 



Description 
Syntax 
Remarks 



This method allows the MMF to be reformated. 



Glob1 .FormatMWlF{<integer>) 



Example 



The integer value represents the maximum number of Notification registrations 
that the newly formated MMF can handle. The default MMF can handle 256 
registrations. This method call will destroy all data currently in the MMF file. This 
call should be made before adding any Globs with the AddNew function. 

It should be noted that the fewer notification that a particular MMF will have to 
handle, the smaller the MMF file will be. Large numbers of notification 
registrations may slow the performance of the application using the MMF. 



Gl obi .FormatMMF (1024) 



Globl. AddNew '"AMPS", 0, 0, 0, 0, 0, 0 



FullPath Property 



Description 

Syntax 

Remarks 

See Also 



Returns fully qualified path to the MMF being used. 
Path = Globl .FullPath 



Read only. Returns a string value. This property is usefull to detemnine rf the Glob 
is connected to the proper MMF. 



FileName Property 
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GlobSize Property 



Description 



This property returns the total size in bytes of the Glob. This includes the Glob 
header area, data area, and the notify map. 



Syntax 



N = Giobl.GlobSire 



Remarks 



Each Glob in the MMF can be different sizes. This property can be used to chain 
through the globs in the MMF without using the GetNextGiob function. The next 
glob in the file has an index equal to the current Globindex + GlobSize. 



Example 



Dim Newlndex as long 

^Get the next glob in the MMF. 

Newlndex = Gl obi .Globindex + Globl . GlobSize 

Globl .Globindex = Newlndex 



IndexOf Property 



Description 
Syntax 
Remarks 

Example 



Returns the index into the glob MMF of a named glob. 



My_lndex = Globl .lndexOf(<string>) 



This method can be used to retrieve Glob Indexes from a Glob Interface without 
altering which Glob the Interface points to. 



'Find the index of the UOM^AMPS glob 

Uoin_Ainps_Index = Globl . IndexOf ( "UOM_AMPS" ) 

'This call does not change which glob Globl is pointing at. 
'This preserves any notification settings in Globl. The 
'index* could have been found by setting Globl . GlobName to 
^^^UOM_AMPS" and then reading the Globl . Globindex property 
'but any Notification settings would have been lost. 
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Insert Method 



Description 



Syntax 



Remarks 



Example 



Allows a value to be inserted into the middle of an an-ay of values, moving values 
after the insert point up one position. 



Globi .insert(<value>,<position>) 



<value> is a long integer 

<position> is a zero based index into the an-ay 



The insert method relies on the eltsize property to determine the location to insert 
into the Globs memory area. Values stored in the last index location of the array 
are roiled off the end and lost. <vaiue> is a long integer and input should be cast 
as a long regardless of the actual data type. The Glob will use the eltsize property 
to determine the actual data type and store it accordingly. 



'keep a history of the last 10 access times 
Svh ReadFileO 

Globl. Insert (Now, 0) 'store date/time inf. 

'perform data access functions 



exit sub 



nHandles Property 



Description 

This property returns the number of notification handles that this particular MMF 
has been formated to handle. 

Syntax 

N = Glob1 .nHandles 

Remarks 

This property is read only. 

Example 

Dim I as integer 

For I = 0 to Globl .nHandles - 1 

Listl .Addltem Globl .Nor if vKandle {I) 

Next I 
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nNotifyMaps Property 



Description 



Syntax 



This property retams the number of Notification maps that each Glob contains. 



N = Giob1. nNotifyMaps 



Remarks 



Example 



This property is read only. 



Dim I as integer 

For I = 0 to Globl.DlTotifyMaps - 1 

Listl.Addltem Globl .NotifyMap (I) 

Next I 



Notify Property 



Description 



Syntax 



Remarks 



Boolean value. If set to True then the control will raise a Change event if any 
portion of the data area is modified. 

4/24/98 update: 

The Change event will also fire if the Status or Command properties are altered. 



Glob1 .Notify = <True/Faise> 
ls_Notify_On = Glob1. Notify 



Each MMF file is capable of supporting a fixed number of controls to be notified of 
a data change. The limit is global in scope, meaning that only a fixed number of 
controls across the entire system can be registered for notification for a particular 
MMF file. If an attempt is made to set the Notify property of a control to True and 
the register is full, the property will not change, it will retain a False value. 

If the MMF location that the Glob is cun-entiy "looking af is changed, the Notify 
property will automatically remove the Globs handle from the NotifyHandle list 
and set itself to False. This could happen if the GlobName, Globindex, FileName, 
or GlobPointer properties are changed. 
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If an application containing Globs that are registered for notification exits in a 
nomnal manner, the Globs will automatically remove their handles from the 
NotifyHandle list stored in the MMF. If the application terminates abnormally, 
there is a possibility that invalid handles will be left in the list In order to handle 
this, if there are rto Giobs currently connected to a specific MMF. the first Glob to 
connect will clear the NotifyHandle list. Also, during the notification process, if an 
invalid window handle is encountered, the invalid entry is automatically remove 
from the list. Exiting all applications that are using a particular MMF and then 
restarting them is guaranteed to clear out all invalid entries in the list. 

4/24/9B update: 

The Notify property is now read-only at design time. 

Examples 

'set xip a app to be notified of data changes in a glob 

Globl. Notify = True 

if (Globl, Notify = False) then 

msgbox "'xmable to register Globl for notification" 

end if 



NotifyHandle Property 



Description 

Syntax 
Remarks 



Examples 



Read only list of all the window handles currently registered for notification in a 
particular MMF. 



a_windows_handle = Globl .NotifyHandle(<0-??>) 



The NotifyHandle list is global to ALL Globs pointing at the same MMF, even 
Globs in separate processes. The values returned are the window handles of the 
individual controls that are registered for notification. A zero entry indicates an 
unused (available) location in the list This property is included primarily as a 
debug tool for developers. 



'check to see if a particular control is registered. 

Globl. Notify = True 'register control 

NotifyOK = False 
For I = 0 to 31 

if Globl. hWnd = Globl .NotifyHandle (I) then 
NotifyOK = true 

end if 

next I 

if NotifyOK = False then 

msgbox *'Did not find Globl 's handle in the list" 

end if 
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NotifyMap Property 



Description 

An array of 32 bit^iong integer) values representing a bit map of the NotifyHandle 
list entries to notify when the Glob value changes. The NotifyMap property is 
read-only. 



m 
m 



Syntax 
Remarks 



Example 



bit_map = Glob1.NotifyMap{x) 



by examining the bit pattern stored in this property, the exact NotifyHandle entries 
that^will be notified of a change can be detemnined. If bit 0 is set to 1 then 
NotifyHandle entry 0 wili be notified of a change if any of this Globs value 
properties are changed. Bits 0-31 map directly to NotifyHandle entries 0-31 in the 
MMF. This property was included to aid in debugging applications. When used in 
conjunction with the NotifyHandle list, the programmer can monitor exactly which 
Globs are getting sent the change message when a value is changed. 



'Display a list of handles that will be notified if the 
'value of this glob is changed. 

my_Map = Globl .NotifyMap ( 0) 
For X = 0 to 31 

bitmask = 2"x *a left bit shift operation 

^ would be better here, 
if (Tny_Map And bitmask) then 

ListBox- Addltem Globl . NotifyHandle (x) 

end if 



next X 



NotifyOnChange Property 



Description 



Syntax 



Remarks 



Example 



This property allows a single Globinterface module to monitor many 'Globs' in the 
MMF for changes. 



Globl. NotrfyOnChange(<GlobName>) = <True/False5 
IsNotified = Globl. NotifyOnChange(<GlobName>) 



NotifyOnChange allows a single Glob interface to receive notification messages 
from multiple Globs in the MMF. Note that if the Notify Property is set to 'False' 
that ALL notification registrations for this Glob interface are deleted, (see 
example) 



'Register Globl to receive notification from 4 Globs in the 
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Globl. Motif yOnChange(*^ AMPS")" = true 
Gl obi. Not ifyOnChange{" VOLTS") = true 
Globl.NotifyOnChange(*'C02") = true 
Globl.NotifyOnChangel^^NOX") = true 

'The following statement clears all notifications for Globl 
Globl. Notify = false 

'The above statement is the same as the following code. 

Globl. Not if yOnChange(^' AMPS") = false 
Globl. Not if yOnChange(*VOLTS") = false 
Globl. Not if yOnChange(*'C02") = false 
Globl. NotifyOnChange{"NOX") = false 



Ref Count Property 



Description 

This property exposes the MMFs reference count variable. 



N = Globl. RefCount 



There are two cases where the Reference Count of the Globs interfacing with a 
particular MMF are important. The AddNew method will fail if the RefCount is 
greater than 1 and the AddNew results in the MMF being expanded. Also, the^ . 
FomnatMMF method must be used with care if the RefCount is greater than 1 . if 
another application is using the MMF when it is refonnated, the results will be 
unpredictable and the application may crash. 



Q 



Syntax 
Remarks 



SendNotify Method 



Description 

This method is used to manual send a notification message to all glob interfaces 
that are registered to receive one. 

Syntax 

Globl ,SendNotify(<PROPJD>, <VALUE>) 
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Remarks 

The <PROP_ID> parameter is used to pass a property id number to the change 
event of the recieving giob interfaces. The following ID's are pre-defined 

ID_UNKNOWN = 0 

ID_VALUE_CHANGED = 1 

ID^STATUS^CHANGED = 2 

ID_COMMAND_CHANGED = 3 



ID values above 3 are available for custom ID's. 



The <VALUE> parameter is used to pass the new value of the changed property. 
In the case of a data value, this is usualy 0 since the data may be stored in any 
format in the g\ob. For the status and command properties this value should be 
the new value of the property. 

Example 

See the AutoSendNotify property. 



Ill 



StrVaiue Property 



Description 
Syntax 

Remarks 



This property retums or sets a string value into a Glob. 



Glob1 .StrVaiue = <string> 
my_string = Giob1. StrVaiue 

<string> can be any valid string literal or a string variable. 



Globs store a string as a NULL terminated array of bytes in its. data area. Care 
must be taken that the byte length of a string is not larger than the DataSize of 
the Glob. If a string is too large to fit then it will be tmncated to fit into the data 
area of the Glob. 



Visual Basic vs. Visual C-h-h (MFC) 

In Visual Basic, this property works exactly as expected, VB handles all the 
conversions to and from C style strings transparently. In Visual C-J-+, when setting 
the StrVaiue property, <string> is expected to be of the type LPCTSTR or a 
CString object When reading StrVaiue, the retum type is a BSTR object The 
safest way to access the StrVaiue property from within a Visual C++ program is to 
use a CString object for both the assignment and retrieval of the value. The 
CString objects assignment operator (=) is overioaded to handle the conversions 
between LPCTSTR types and BSTR objects. String literal can be used to set the 
value in the Glob. The _ i (<stringjiteral>) macro should be used to insure that 
the value is stored in the proper format (Unicode or Double Byte characters) 
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Examples 



visual Basic 

Diin my^string* as string 

Globl.StrValue = ^^This is a Glob" 
Globl . StrValue = my_string 

my_string = Globl.StrValue 

Visual C++ (MFC) 

CString my_string; 

//using the _T macro to assign a string literal 
Globl.SetStrValue(_T(«This is a Glob" ) ) ; 

//using a CString object to access the property 
Globl . SetStrValue (my^string) ; 
Tny_string = Globl. Get StrValue () ; 



111 



Values, Value16, Value32 Properties 



Description 



Allows reading and setting of values to the Globs data area, 
the Vaiue32 property is the default value property for the Glob 



Syntax 



Glob.ValueB = new_byte_vaiue 
byte_value = Glob.ValueB 



' set value of the data area 
' retrieve the value 



Remarks 



Example 



Values, Vaiue16, and Vaiue32 return a single byte value, a 2 byte value, and a 4 
byte value respectively. If a value is written to a Glob whose data area is smaller 
than the byte size of the value, nothing will be written to the Glob. Value32 is the 
default value. 

Dim my_byte as byte 

my_byte = Cbyte (Globl .Value 8) 

OR 



Dim my_byte as integer 
my_byte = Globl. ValueB 

OR 

'using the default property 
my^long = Globl 
Globl = my_long 
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Values D property 



Description 

This is one of the-methods for accessing the data portion of a Glob from within a 
Visual Basic program. 

Syntax 

G/ob. ValueSD{<index> ) ~ newvalue 'set the value into the Glob 



Remarks 



m 

m 

In 



111 
111 

CI 



See Also 
Example 



Globvalue = G/oJb.ValueSD{ <index> ) ' get the value 

This property is a single dimensional version of the Value property and behaves 
in exactly the same manner. The ValueSD property takes only one index 
parameter instead of two. The memory associated with the Glob is treated as a 
single dimensional array for access purposes. 

if the an-a^ specifiers result in a data element that is out of range, the new value 
will not be written to the Glob. If attempting to read a data element with invalid 
array specifiers, Value will retum a -1 . 

The retum value is LONG (32-bit integer); if accessing data whose data 
elements are only 1 or 2 bytes long, the data values will be returned in the low 
order 8 or 16 . bits of the 32-bit retum value, as appropriate. 



Value property 

Dim i as integer 

fill a 512 byte Glob array of bytes with random values 

Globl.AddNew *mVEFORM" , 0, 1, 512, 1, 0, 0 ^ diml=512 

For i = 0 to 511 

Globl. ValueSD ( i ) = md{) * 255 ^ save md byte 

Next i 

^ link with the *^Dwell per cylinder" Glob and print values 



Globl. GlobName = "DWELL/CYl." 

For i = 0 to Number Of Cylinders - 1 

Printer- Print Globl .ValueSD ( i ) 

Next I 



' link up 

' loop through 

' access Drint 
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Version Property 



Description 

Syntax 
Remarks 



Read only property that returns a string containing the version ID of the Glob 
interface. 



version = GloblVersion 



Since there have been several versions of this control produced, this property 
was added to help developers tell which version they had installed on thier 
machine. The following conventions will be used in future releases: 

Version ID = 1 .2x 

Primary release number = 1: This number will increase if there are substantial 

feature changes in the Glob Interface. 

Secondary release number = 2: This number will increase if bug fixes and minor 

feature updates will invalidate the current MMF 
structure. 

Release version letter = x: This will increment if bug fixes and feature updates 

Do not require any MMFs being used to be rebuilt 



Stock Properties 



Visual Basic and Visual C++ automatically provide several stock properties for any custom 
control. Documentation for these properties can be found in the on-line help system for either 
Visual Basic or Visual C++ 

Some standard stock properties 

hWnd, Top, Left. Height, Width, index, Icon... 
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Update History 



Version 1.2a (May 4, 1998) . 

1) Fixed a problem with Deleting and then Adding new globs to the MMF. 

2) Link and UOM properties are now strings instead of indexes. 

3) added the IndexOf method call to retrieve the index of a named Glob. 

4) Added the version property to make it easier to keep track of which version is 
being used. 



^0 



Version 1.2b (May 5, 1998) 

1) Added SendID to the Change event. 

2) Some internal modifications to the way messages are sent from Glob to Glob. 

3) Optimized the Notification process if there are no notifications registered. 

4) Added the NotifyOnChange property. 

Version 1.2c (May 6, 1998) 

1 ) Fixed a bug in the NotifyOnChange property. Users can now set up a Giob 
with no name to receive notifications from other Globs. 

2) Fixed a problem with creating a new file if the specified MMF does not exist. 

Version 1.2d {??) 

1) Fixed a crash in Windows95 if the MMF file did not exist. 

2) Windows 95 no longer crashed when the MMF is expanded. 

Version 1.2e (June 16, 1998) 

1 ) Removed Glob interfaces from the control tab list. 

2) Globs no longer display a "Property Page" when clicked on during njntime. 



Required Files 



The following files are required on the system before Glob.ocx can be successfully 
registered and used. 



MFC42.DLL * 
OLEPR032.DLL * 
MSVCRT.DLL * 
GLOB.OCX 



Note: 

The files marked with *'s will be present on systems that have Internet Explorer 3.0 or 
Microsoft Visual C++ with MFC version 4.2 installed. If these files are not found In the system or 
system32 directory then they must be installed and registered before Glob.ocx can be registered. 
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Copyright 1998, 1999 SPX Corporation :| 
^ // Giob.cpp : Implementation of CSIobApp and DLL registration 

. '..!//'• 

^include "s+dofxh" 
#include "Slob.h" 

#ifdef_DEBU6 

#defjne new DEBUe_NEW 

#undef THIS_FILE 

static char THIS_FTLED = _FILE ; 

#endif 



CGIobApp NEAR theApp; 

const GUID CDECL BASED_CODE _tlid = 

{ 0x5f 20d2d3, Ox788c, Oxlldl. { Ox9a, Ox9b, 0x2, 0x7, 0x1, 0x4. 0x5a. Ox6b } }; 
const WORD _wVerMajor = 1; 
cp^ WORD _wVerMinor = 0; 



//^CGIobAppiiInitlnstance - DLL initialization 

m 

B©bL CGIobApp::InitInstanceO 

{SI 

';BOOL binit = COIeControlModule::InitInstanccO; 

:if (bInit) 

I _ . 

/ / I OD"D: Add your own modu!** in'+»a'^2c+*'^'^ ^-^h^ 

K 

return binrt; 

3 . 



///////^JJ//m//J//J////////////////j///////j/////////////////////j////j/// 

1/ ceiobApp::t:xitinstance - DLL termination 

int CSlobApp::ExitIn5tanceO 
{ 

/ / TODO: Add your own module termination code here, 
return COieControlModule::£xitInstanceO; 

} 



/ / DIIRegisterServer - Adds entries to the system registry 
5TDAPI DllRegrsterServer(void) 



{ 

AFX.MANAeE.STATELafxModuleAddrThis); 

if (!Af xOleRcgisterTypcLib(Af x&ctlnstanceHandleO, _tlid)) 
return RcsultFrom5codc(5ELFREG_E_TYPELIB); 

if (!COleObjectFactoryEx::UpdatcRc3istryAll(TRUE)) 
return RcsultFrom5codc(SELFREe_E_CLASS); 

return NOERROR; 

) 



///////////////////////////////////////////////////////////////////////////// 
// DllUnregisterServer - Removes entries from the system registry 

STDAPI DIIUnregister5erver(void) 

i;|AFX_MANASE_STATELafxModuleAddrThis); 

>jf (!AfxO!eUnregisterTypeUb(_tlid, _wVerMojor, _wVerMinor)) 
return ResultFrom5code(SELFREG„E_TyPELIB); 

Rl 

Uff C!COIeObjectFQctoryEx::UpdateRcgistryAll(FALSE)) 
SI return ResultFromScode(SELFREe.E.CLA55); 

Creturn NOERROR; 

}4; 



; Copyright 1998, 1999 SPX Corporation 

; Glob.dcf : Declares the module parameters. 

LIBf^ARy "&IOB.OCX" 

EXPORTS 

DIIConUnloodNow ©1 PRIVATE 
Dll&etClassObject ©2 PRIVATE 
DIIRcgisterServer ©3 PRIVATE 
DllUnregisterScrver ©4 PRIVATE 



m 



This Page Blank 

1 
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HI 

a 

Hi 
ill 
Q 



// Copyright 1998, 1999 5PX Corporation 

// Slob.odI : type library source for ActiveX Control project, 

// This file will be processed by the Make Type Library (mktyplib) tool to 
// produce the type library (Slob.tib) that will become a resource, in 
// Slob.ocx. 

« 

#include <olectLh> 
#include <idispids.h> 

' [ uuid(5F^0D2D3-788C-llDl-9A9B^02670i045A6B), version(1.0)V 
helpfjle("&lob.hlp"X * 
helpstring("6lob MMF Interface"), 
control ] 
Jibrary SLOBLib 

lmportiib(STDOLE_TLB); 
importlib(5TDTyPE_TLB); 

Primary dispatch interface for CSIobCtrJ 

Si 

;tuuid(5F20D2D4-788C-llDl-9A9B-020701045A6B), 
jr^^heipstringC'Dispatch interface for Slob Contror)/hiddcn ] 
!|lispinterf ace _DSIob 

% 

^ ' properties: 

ill NOTE - CiassWizard will maintain property information here. 

J: J I Use extreme caution when editing this section. 

lij y/{{Ai^ODU_PROP{CeiobCtr!) 

Ill IidCDISPIl>_HWNI>)] OLE. HANDLE hWnd: 

LI lid(l)] long €lobInde>c 

Iid(2)] long DinaSize: 

Iid(3)] long Dim2Si2e; 

pd(4)] long ElcmentSize; 

[id(5)3 long Type; 

pcl(6)] long Extra; 

[id(70] long DatcSize; 

[id(B)] ESTR SbbName; 

[id(9)]longFileSi2e; 

[id(lO)] BSTR FileName; 

[id(ll)] long Status; 

[id(12)] long Command; 

[id(13)] long SlobPtr; 

[id(14)J long DataPtr; 

[id(15)] long AvailSize; 

[id(16)] boolean ReadOnlyMMF; 

rid(17)] boolean "Notify; 

[id(18)] short ValueB; 

rid(19)] long Value32: 

r»d(20)] short Valuel6; 

[id(21)3 BSTR StrValue; 

[id(22)] BSTT^ FullPath; 



1 




[id(23)] boolean AutoScndNotifyj 
[id(24)3 long nHandlcs; 
[id(25)] long nNotifyMaps; 
[id(26)] long SlobSize; 
[id(27)] long ftcf Count; 
[id(2B)] BSTR Version: 
[id(29)3 BSTR UOM; 
[id(30)] BSTO Unk; 
//}}AFX_ODL_PROP 

methods: 

// NOTE ' ClassWizard will maintain method information here. 

// Use extreme caution when editing this section. 

//{{AFX.ODL.METHOD(CeiobCtrl) 

[id(43), propget] long Value(long Dim2, long Diml); 

[id(43), propput] void Value(long Dim2, long Diml, long nNewValue); 

rid(31)] long CioseMMFO: 

[id(32)] long AddNcw(BSTR SlobName, long Unitslndex, long Dim2Si2e, long DimlSize, long ElementSize, Ion 
g Cype, long Extra); 

Jll [id(3333 long AddNewEx(BS"m GlobName, BSTR UnitsName, long Dim2Size, long DimlSize, long ElementSize, io 
ng^#ypc, long Extra); 
f- [id(34)] boolean SetFirstSlobO; 

Dd(35)] boolean SetNextSlobO; 
Jjj [id(36)] void EraseO; 
'^1 rid(37)] void EraseMMFO; 

' rid(44), propget] long NotifyHandle(short index); 
Q Dcl(44), propput] void NotifyHandle(short index, long nNewValue); 
4= rid(45), propget] short aValueSClong index); 
111 Dd(45), propput] void aValueBOong index, short nNewValue); 
III [id(46), propget] long aValue32(long index); 
CI Dd(45), propput] void cValue320ong index, long nNewValue); 
¥^ DdC47), propget] short aValuel6(long index); 

I'd(47), propput] void aValuel6(long index, short nNewValue); 

[id(48), propget] long Value5D(long n); 

[id(4B), propput] void ValueSDOong n, long nNewValue); 

[id(38)] void Insert(long value, long index); 

[id(39)] long Resi2eMMF(long NewSize); 

[id(40)] void SendNotify(long NotifylD, long Value); 

[id(49), propget] long NotifyMapOong index); 

[id(49), propput] void NotifyMap(long index, long nNewValue); 

[id(41)3 boolean FormatMMFCIong NotifyLimit); 

[id(42)3 long IndexOf (BSTR GlobName); 

[id(50), propget3 boolean NotifyOnChange(BSTR GlobName); 

[id(50), propput] void NotifyOnChange(BSTR SlobName, boolean bNewValue); 

//}}AFX.ODL_METHOD 

[id(DISPID.AB0UTB0X)3 void AboutBoxQ; 

3; 

// Event dispatch interface for CSIobCtrl 

[ uuid(5F20D2D5-7B8C-llDl'9A9B-020701045A6B), 




helpstringC'Evcnt interface for Glob Control") ] 
dispinterf ace _D&lobEvents 
{ 

properties: 

// Event interface has no properties 

methods: 

// NOTE - CiassWizard will maintain event Information here. 
/ / Use extreme caution when editing this section. 
//{{AFX_ODL_EVENT(CSlobCtrl) 

[id(l)] void Change(short PropID, short Value, long SendID); 
/^}AFX_ODL.EVENT 

}: 

// Class information for CSlobCtrl 

[uuid(5F20D2D6-788C-llM-9A9B-020701045A6B)Jicensed, 

helpstring("Glob Control"), control ] 
wodoss Glob 

|- 

Ul [default] dispinterf ace _DSIob: 

T [default, source] dispinterf ace _DSlobEvents' 

S! 

//'{{AFX_APPEND_ODL}} 
^AFX_APPENDl_ODL3} 

K 'si 

I ii 

V? i 

r-c 
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// Copyright 1998, 1999 SPX Corporation 

// GlobCtl.cpp : Implementation of the CGIobCtrl ActiveX Control c\css. 

'#in"clude "stdafi:.h''.- " ' ."' • - ■ • • " ■ : Z^' , •• •. ' 

>¥indude."eipb.h". .. • ' . • 

-^^inctudc-'GlobCtLK" ■ -.• • - - . . 

^include "GiobPpg.h" . ■ 

#rnclude "sys/types.h" // for file status buffer _stat 
.#include "sys/stflt.h" // for _fstat file status call 

#ifdcf_DEBUe 

#def ine new DEBUG_NtW 

#undef THIS_FTLE 

static char THIS_FILEO = FTLE_J 

#endif 

#46f ine MIN_FILESIZE 8192 
#clii=ine lO&_cKkOkS FALSE 

.HA'ljDLE myhWnd; 

HA^LE ADhlnstancc; 
unsigned char bftesFlag; 
HATspLE ''iaModules; 
intsi "iaSlobai; 
BS11 saSlobal; 
CString reftemp; 

Pi 

//iSpl LineDdjug = false; 

1=1 

IPdfSJk m.Message = "msgSlobChanpe"; 
//long BitList[323: 

// HELPER FUNCTTON PROTOTYPES -RK 
CString &etName(C5tring); 
long Power(ir.t); 

void LogErrorString(CString errstr); 
IM?LEMENT_DyNCREATE(CSlobCtrL COIeControl) 

/////////////////////////////////////////////////////////////////// 
//Register for an external windows message 

UINT U5ER_VALUECHAN!5ED = RegisterWindowMessage(m_Message); 

///////////////////////////////////////////////////////////////////////////// 
// Message map 

BEGIN_MESSA&=_MAP(CSIobCtrl, COIeControl) 
//{{AFX_MSe_MAP(CGIobCtrI) 
//}}AFX_MSS_MAP 




ON_OLEVERB(AFX_IDS_VERB_PR0PERTrES. OaPropcrtics) 
ON_REGISTERED_MESSAGE(USER_VALUECHAN.SED, OnVolueChanged) 

END^MESSA(5E_;MAPp;.- .. • ' '.V 




// Dispatch map 



BEGIN_DIS.P/ITCH_M AP(CSIobCtrl , COlcControl) 

:• '://{{AFX:^DisPATCH;.M/wj^iohrfri^^^^ • .. . • ^V-., ■ .,' . •. .; 

: : DisPJ^OPEp;t/_EX(C6lobCtri,.''6loW ' ' ' ■ • ■ 

DISP_PROPERTY_EX(C&lobCtrl/'bimlSi2e\ SetDimiSize, SetDimlSize. \rr_I4) 

DISP_PROPERTy_EX(CGIobCtrl, "DimZSize", SetDimZSize, SetDimZSizc, VT_I4) 

DISP_PROPERTy_EX(CGlobCtrl, "ElementSize", GetElementSize. SctElemcntSize, VT_I4) 

DISP_PROPERT/_EX(CeiobCtrl, "Type". SctType. SetType, Va_I4) 

DISP_PROPERTy_EX(CeiobCtrl. "Extra", &etExtra, SetExtra, Vnr_I4) 

DISP_PROPERTy_EX(CSIobCtrl, "DatoSize", fietDotaSizc, SetDataSize, VT_I4) 

6tSP_PROPERTy_EX(C6iobCtrl, "SlobName". Get61obName. SetSlobName, VHLBSTR) 

&SP_PROPERTy_EX(CGIobCtrI, "RleSizc". SetFileSizc, SetRleSize. VT_I4) 

SI:SP_PROPERTY_EX(CeiobCtrl, "FileName", GetFileName, SetHleName, VT_BSTR) 

jllSP_PRQPERTy'_EX(CeiobCtrl/'Status",&^^^ 

S&}ESP_PROPERTY_EX(CSIobCtrl, "filobPtr", SetSlobPtr, SetSlobPtr, VT_I4) 
■fesP_PROPERTy_EX{C(51obCtrl, "DataPtr". SetDataPtr, SetDataPtr, VT_I4) 
plSP_PROPERTY_EX(CeiobCtrl, "AvailSize", GetAvailSize, SetAvailSize, VT_I4) 
i|^ISP_PROPERTy_EX(CeiobCtrl, "RcadOnlyMMF'. SetReadOnlyMMF, SetRendOnlyMMF. VT_BOOL) 
JxSP_PROPERTY_EX(C6labCtrl, "Notify", SetNotify, SetNotify, VT_BOOL) 
illISP_PROPERTY_EX(ceiobCtrl, "ValueS"; SetByteValiie, SetByteValue, VT_I2) 
iglSP.PROPERT/.EXCCSlobCtrl, "Value32", 6etL Value, SctLValue, VT_I4) 
il>isP_PROPERTy_EX(CSIobCtrl, "Valuel6", &etIValue, SetlValue, \rr_I2) 
telSr_PROPERTy_EX(CeiDbCtri, "StrVaiuc" , GetStrVaiue, SetStrVaiue, VT_BSTR) 
DISP_PROPERTy_EX(CSiobCtrl, "FuIIPath", SetFulIPath, SetFullPath, \rr_BSTTi) 

DISP_PROPERTy_EX(CGIobCtrl, "AutoSendNotify", GetAutoScndNotify, SetAutoSendNotify, VT_BOOL) 
DISP_PROPERTy_EX(C&lobCtrl, "nHandles", SetNHandles, SetNHandles, VT_I4) 
DI5P_PROPERTY_EX(CeiobCtrl, "nNotifyMaps", GetNNotifyMaps; SetNNotifyMaps, VT_I4) 
DISP_PROP=RTY_EX(CSIobCtrl, "SlobSizc", SetSlobSize, SetSlobSize, \n"_I4) 
DI5P_PROPERTY_EX(CSlobCtrl, "Ref Count", SetRef Count, SetRef Count, VT_I4) 
DISP_PRO?ERTY_EX{CGIdbCtrl, "Version", SetVersion.. SetVersion, VT_BSTR) 
DISP_PROPERTy_EX(CeiobCtrl, "UOM", &etUOM, SetUOM, VT_B5TR) 
DISP_PROPERTy_EX(CSIobCtrl, "Link", GetLink, SetLink, \n_BSTfi.) 
DISP_FUNCT:ON(CeiobCtrl, "CloseMMF", MMFCIosc, VT_I4, VTS.NONE) 

DISP_FUNC—ON(CSlobCtrl, "AddNew", MMFAddGlob, \rr_I4, VTS_BSTk VTS_I4 VTS_I4 VTS_I4 VTS_I4 VTSJiA VT. 

DISP_FUNCnON(CGlobCtrl, "AddNewEx", MMFAdd&lobEx, VT_I4, VTS_BS7R VTS_BSTR VTS_I4 VTS_I4 VT5_I4 VTt 

DISP_FUNCnON(CGlobCtrl, "SetFirstGlob", GetFirstGiob. VT_BOOL, Vas.NONE) 

DI5P_FUNCTLON(CGlobCtr!, "GetNextGlob". GetNextGlob. VT_BOOl. VT5_N0NE) 

DISP_FUNmON(CGlobCtrl, "Erase", Erase, VT^EMPTY, VTS_NONE) 

DISP_FUNmON(CGlobCtrl, "EraseMMF", MMFErase, VT.EMPTY, \rrs_NONE) 

DISP.FUNCTIONCCGlobCtrl, "Insert", Insert, Vrr_EMPTy, VTS_I4 VTS_I4) 

DISP_FUNCnON(CGlobCtrI, "ResizeMMP", ResizeMMF, VT_I4, VTS_I4) 

DISP_FUNCTION(CGbbCtrl, "SendNotify", 5endNotif>'X, VT_EMPTV, VT5_I2 VT5_I2) 

DISP_FUNCnON(CGbbCtrl, "FormatMMF', FornratMMF, VT_BOOL, \TS_I4) 

DISP_rUNCTION(CGIobCtrl, "IndexOf", IndexOf , VT_I4, VTS_BSTO) 



DISP_PROPEftTy_PARAM(CeiobCtrl, "Value". &etVdlue, SctValue, VT_I4, VTS_I4 VTSJIA) 
DISP_PROPERTy_PARAM(CeiobCtrl, "NotifyHandle", GetNo+ifyHandle, SctNotifyHandle, VT_I4, VTS_r2) 

• •.DXSP_PROPERTyiP.ARAM{C^^^^ 

• •^t>ispl^RdPERfy_PARM(ra^^ V-" 

DISP_PROP5RTy_PARAM(CSIobCtrl/'Notify/yiap\ SetNotifyUst, SetNotifyList, \rr_I4, ^ 

DISP_PROPERTy_PARAM(CSIobCtrl, "NotifyOnChange", SetNotifyOnChange, SetNotifyOnChanoe, VT_BOOL, VTS_BSTR" 
DISP_DEFVALUE(CGlobCtrl,"VQlue32") • ' . 

: • -■ BlSP^STpGiCPRORLMWJilDO ".• •-. r^- ' ■ V-- / ■• > ' '■ : - '■ . ' - .-: • .- -. - .' . . V.. :; . .J :. . 

7/}}AFX_lbl5PATCH_:MAP ^ -'' i'' ' ' ' \ \- . ' ' _ ' 

DISP_FUNCTrON_ID(C&lobCtri; "AboutBox"/ DISPID.ABOUTBOX, AboutBox, VTJEhhPTV. VTS.NONE) 
END_DISPATCH_MAPO 



///////////////////////////////////////////////////////////////////////////// 
// Event map 

BEiiN_EVENT_MAP(C&lobCtrl, COleControI) 

S{{'^FX_EVENT_MAP(C61obCtrI) 
. jyENT-CUSTOMC'Change^RreChange. V/TS.IS .VTS.IZ .VTS_I4) 

Xp}AF>(_EVENT_AAAP 
EN|LEVENT_WiAPO 

//^if///////////////////////////////////////////////////////////////////////// 

// Jroperty pages 

//'SobO: Add more property pages os needed, ftemember to increase the count! 
B^&IN_PROPPASErDS(CSIobCtrl, 1) 
f^"feOPPAgEiD(CSlobPropPage::guid) 
END_PftOPPASElDS{ceiobCtrI) 



///////////////////////////////////////////////////////////////////////////// 
II Initialize class factory and guid 

IMPLEMENT_OLECREATt_EX(ceiobCtr!. "SLOB.eiobCtrl.l", 

0x5f 20dEd5, 0x78Sc, Oxlldl, Ox9a, Ox9b, 0x2, 0x7, 0x1, 0x4, 0x5a, Ox6b) 



llllllll/llllll/lll/l/lllllll/lllllllllll/llllllllll/llllllllllllllllllllllll 
II Type library ID and version 

IMPLEMENT_OLETyPELIB(CeiobCtrl, _tiid, _wVcrMajor. _wVerMinor) 



iiiiiuiiiiiiiiiiiiiiiiiiijiiniiiiiiiiiuiiiiiiiiiiiuiiiiiiiiiuiiiiimiii 

II Interface IDs 

const IID BASED.CODE IID_D(5lob = 

{ Ox5f 20Q2d4, 0x78Bc, Oxlldl, { Ox9a, 0x9b. 0x2, 0x7, 0x1, 0x4, 0x5q, Ox6b ) }; 




const HD BASED_C0DE IID_D&lobEvents = 

{ 0x5f 20d2d5. 0x788c, OxUdl, { Ox9q, Ox9b, 0x2, 0x7, 0x1, 0x4. OxSa, Ox6b } ); 



/lW:N/w,unjj//ujjr/N 1/1/1/ i/jjun 

♦ 

static const DWORD BASED_CODE ^dweiobOleMisc = 
OLEMISC.ACTIVATEWHENVISIBLE | ■ 

■:: ^•0iEMI3.e^sET^a:IE^JTS±^Efr^lis.T \- . .-; . r • • . .- . /• \ 
■ •■ olEtkiscjLHsibEowr [ • •■; "■• • V ■■ • '\ ' .'■ : • ' 

OLEMISC_CANUINICCNSIDE I 
OLEMISC_RECOMPOSEONRESIZE; 

IMPLEMENT_OLErrLTyPE(C6lobCtpl, JbSjSlOB. _dweiobOleMisc) 

///^U^/////////////////////////////////////l///// ///////////////// /////////// 

// lobCtrl::CSIobCtrlFactory::UpdatcRegistry - 

// ^yds or removes system registry entries for CSIobCtrl 

BQ<!)L CGiobCtrhiCeiobCtrlFa 

W TODO: Verify that your control follows apartment-n\odel threading rules. 
// Refer to MFC TechNote 64 for more information. 

your control does not conform to the apartment-model rules, then 
/^A you must modify the code below, changing the 6th parameter from 
of xRegApdrtment Threading to 0. 

f||{bRegister3 

1..^= return Afx01eRegisterControlClass( 

Afx&etlnstanceHandleO, 

m_clsid, 

mJpszProgID, 

IDS_eLOB, 

IDB_GLOB, 

afxRegApartmentTnreading, 

_dw&lobOleMisc, 

_tlid, 

_wVerMajor, 
^wVerMinor); 

else 

return AfxOleUnregisterClcss(m_clsid, m^lpszProalD)* 

} 

///////////////////////////////////////////////////////////////////////////// 
// Licensing strings 

static const TCHAR BASED_CODE .szLicFiieNameQ = .T("eiob.lic"): 

static const WCHAR BA5ED_C0DE .szLicStringQ = 
L"Copyright (c) 19?9 SPX"; 



A 



// Checks for. exist^nc^ of a user lic^c \ 

BOOL CGlobCtrl::CGIobCtrlFactory::VerifyU5crbiccnseO 

return Af xyerifyLicFile(Af xSetlnstanccHandleQ, _szLicFiIcName, 

///////////////////////////////////////////////////////////////////////////// 
// ceiobCtrl::C61obCtrlFactory::&etLicenseKey - 
// Returns a runtime licensing key 

b6oL C&lobCtrl::CSlobCtrlFactory::&etLicenseKey(D WORD dwReserved , 
FAR* pbstrKey) 

{ I ■ 

..^ iCpbstrKey==NUUOL - ... ... 

fi\ return FALSE; 

in 

*|3bstrKcy = SysAllocStringLszLicString); 
^return (*pbstr»Ccy != NULL); 

'.fa 

/y^=e5lobCtrl:;C5lofaC1rl - Constructor 

ceiobCtrl-.-.CGlobCtrlO 

{ . 

InitiaIi2eirDs(&IID_DSlob, iHD.DSlobEvents); 

// TODO: Initialize your control's instance data here. 
SetInitialSi2c( 32, 32 ); // Force to have o certain size at startup 

IpLcst = NULL 

IpView = NULL 

s_hFileMap = NULL: 

hFileMapT=NULL; 

f = NULL- 

GlobLock = NULL 

MMFLock=NULL 

m_RleName= "C:\\SLOBMMP'; 

m_FileSi2e = WiIN.FILESIZE; 

GlobPtr = 0; 
m_Notif y = false; 

} 



// C&lobCtrlti-CSbbCtrf- Destnictor . : 

{ • 

// TODO: Cleanup your control's instance data here. 
.ftemovcNotify((5lobPtr,&6tSafcHwndO); 

lpVicw.->feef Count— ; '"" ' - ' 

UnmapViewOf Fi lc((LPVOID) Ip View); 

elobPtrsNULU 

lpVicw=NULL; 

IpLostrNULL; 

CloscHandle{s_hFileMap); 

CloseHandle(f); 

El 

ifl(SiobLock) delete SlobLock 
giobLock = NULL; 
.. . #(A\MFLock) delete MMFLock; ... 
MMFLock=NULL 

} VI 



/y^///////////////////////y///////////y///////////////////////////////// 

//^fij&lobCtrl::dnDraw"- Drawing function 

l|| 

vojgl ceiobCtrl::OnDraw( 

h'^ CDC* ode, const CRcctd rcBounds, const CRectA rclnvaiid) 
{ " . 

// TODO: Replace the following code with your own drawing code. 
. Cftect r; 

CPictureHolder pict; 

if (lAmbientUserModeO) { 

r = rcBounds; 

r.,right"= r.left + 31: 

r.bottom = r.top + 31; 

pict.CreateFromBitmap(IDB_SLOB); 

pict.Rcnder(pdc,r,r); 

5etControl5i2e(32,32); 
3 else { 

ShowWindow(SW_HIDE); 

) 

} 



///////////////////////////////////////////////////////////////////////////// 
// CSlobCtrl::DoPropExchange - Persistence support 

void CSlobCtrl::DoPropExchanQc(CPropExchange* pPX) 



{ 



CString strRcsult; 

. COleCorrtppl-DoR^^ . ' 

- • "* \orig ret:'"' * • " ,7 • - ■ . - • ' " - " • * -:.v / . ' 

// TODO: Call PX_ functions for each persistent custom property 

^ V/MaKe*RfeNameVopcrty''f*crs^^ . . ' 

^ PX.iStringCpPX^TC'FileName"), nuRleName/'CAXSLOBMMP); 
Setn leNamc(m_R leName); 

// make SbbNbme persistent 
PX^String (pPX, JTl^SiobName^O. nueiobName, 
SeteiobName( nuSlobName ); 7/ look up the fiiob for this name, should rclookup 

LI 

^11 PX_Bool(pPX^Tr'AutoNotify"),nuAutbNotify,true); 

I 



,r^t = SetVisibleO; 

} y - 

CI 

ffWJ^/iJ/JJif/ujjj/wiJw/ij/j/jjjiu//JUNtN/ij/inf////JNu//////n 

/^ilGlobCtrli-.OnRcsetState-^ Reset control to default state 

111 ■ 
vda CeiobCtrl::OnResetStateO 

{H 

C01eControl::OnResetStateO; //Resets defaults found in DoPropExchange 
// TODO: Reset any other control state here 

} 



///////////J///////J/J////JJW//J//j///j/:///j/jj.///////////////////////j//// 
/ / CGlobCtri:: AboutBox - Display an "About" box to the user 

void CGIobCtrl-.AboutBoxO 

{ 

CDialog dlgAboutCEDD.ABOUTBOX.SLOB); 
dlgAbout.DoModalQ; 

} 



//y//////y////////////////////////////m//////////////////////////////////// 

/ / CGIobCtrl message handlers 
long CGIobCtrl::SeteiobIndexO 




// TODO: Add your property handler here 
if (SlobPtr) 

^ return (int)(Sl6bPtr)-(int)lpVicw; : • 
■ return-1; * " ' 

void CSIobClTl::5etSlobIndex(long nNewValue) . 
{• . •. -.-. ...... 

// TODO: Add your property handler here 

tf {(nNewVolue .lpView->FirstSlbb)-&'4 (nNcWValue <= lpView->Next Avail)) */ // in range? 
[ 

RcmovcNotify(SlobPtr^etSafeHwndO); 

SlobPtr = (tSlob *)((int)lpView + nNewValue); // hope caller knows what he's doing 

if (SlobPtr) 

{ 

datasize - SlobPtr->datasi2e; 
Q SetGlobNamc((LPCTSTO)eiobPtr->name); 

^11} 
p 

1: 

SetModifiedFlagO; 



iong'ceiobCtrlr.&etDimlSizeO 

i n 

TODO: Add your property handler here 
jl(SlobPtr)' ' 
III return &lobPtr->diml; 
ieturn-l; 

} 

void CSIobCtrl::5etDiml5i2e(lon3 nNewValue) 

{ 

// TODO: Add your property handler here 
if (SlobPtr) 

SiobPtr->diml = (short)nNewValue; 
SetModifiedrlagO- 

) 

long CSlobCtrl::SetDim25i2eO 

{ 

// TODO: Add your property handler here 
if (SlobPtr) 

return SlobPtr->dim2; 
return -1; 



void CSlobCtr!::SetDim25i2eClon3 nNewValue) 
{ 

// TODO: Add your property handler here 
if (SlobPtr) 



Q 



&lobPtr->dim2 = (short)nNewValuc; 
SetModifiedFlagO: 

.|pnqG&lobCtrl;:ectElement.SizcG-; 

•'{1 • / ..^^ - 

// TODO: Add your property handler here • 
if (elobPtr) 

return &lobPtr->eltsi2e: • 
. '/ rctdi?ji.>l; - • r • • • ] — ■ 

void CGlobCtrl::SetElemcntSl2e(long nNewVolue) 
{ 

// TODO: Add your property handler here 
if (SlobPtr) 

elobPtr->eltsi2e = (short)nNewValue; 
i^ModifiedFlagO; 

lorif CSIabCtri::&et.TypeO - . - . . 

pff TODO: Add your property handler here 
^ (SlobPtr) 

' return SlobPtr->type; 
^return -1; 

} i . . 

vdiB CSlobCtrl::5etTypcClong nNewVaiue) 

W TODO: Add your property handler here 
if (SlobPtr) 

SlobPtr->type = (short)nNewValue: 
SetModifiedFlagO; 

} 

lone C&lobCtrl::SetExtraO 

// TODO: Add your property handler here 

if (SlobPtr) 

return SlobPtr->extrQ; 
return -1; 

} 

void CSlobCtrl::SetExtra(long nNewValue) 

; 

// TODO: Add your property handler here 
if (SlobPtr) 

SlobPtr->extra = (short)nNew Value; 
SetModifiedFlagO; 

} 



long CSIobCtrl::&etDatGSi2cO 

■ // TObd: Add your property handler here ■. * ' * . *'. " ' * 

;tf (eipbPtr), ' : • •/ : .. . „ *. '[ . ; * . 

return 0; ' . • " 

3 ■ . ...... ...... 

.-Itydfd CSJobClrFr.SerDat05Lze(b - 

// TODO: Add your property handler here 
if (GlobPtr) { 

GlobPtr->datasi2e = (short)nNewValue; 

datasize = &lobPtr->datasi2e; 

} 

SetModifiedFiagO: 

3 C) 

m 

It*;? 

BSWk Cei.obCtrl::eettolobNamcO 

{!:;■■•■■ ■■ ■ ■ ■• ■ .■• . 

;&5tring strRcsult; 
IjrrE nam[171; 
Jnt i; 

jifj (SlobPtr) 

i 

ill f or (i=0;i<16;i+^) nam[i]"- GlobFi-r->name[ii . ' 
111 nam[163= '\0"; 

U strResult = nam;//m_SlobName://nam;//eiobPtr->nQme; 
return strResult.AllocSysStringO; 

} 

void CSIobCtrl::SeteiobName(LPCTSTR IpsrNewValue) 
CString MutexName; 

// Changing value of SlobName does read of Slob. If found, new properties are seea 
RemoveNotify(eiobPtr ,&etSaf eHwndQ); 
eiobPtr = (tSlob *) MMFfietSlobPtr(lpS2NcwValue); 
if (eiobPtr) 
{ 

datcsize = SlobPtr->datasi2e; 
m_GlobName = IpszNewValue; 

3 

else 
{ 

m_GlobName.En\ptyO; 

} 



SetModifiedFiagO; 



' } 

. 'long. CSflobCtrl::5etF.ile5i2eO , . . . J . \ . 
. . // TODO; Add your p^Qpcf^/ hand le^^^ . . . • 
return m^FileSizc; 

} ■ ■ ■ 

"v • ' ; ' / 

// TODO: Add your property handler here 
SetModifiedFiagO; 

) 

BSTT^ C&lobCtrl::eetRleNameO 
{ 

£^tring strResult; 

11^^ TODO; Add your property handler here 

^frResult = m_RleName; 

return strResult.AilocSysStringO; 

III 

voidJCGlobCtrl::SetFileName(LPCTSTR IpszNewValue) 

\of\g retval; 
^String oldf ilename; 

istrinq CurrentSlobName; 

^ f ? 

purrentSlobNome = fietSlobNameQ; 
b1df ilename = m_FiicName; 
m_FileName.Format("7cS",lpszNewValue); 
m.FiieSize = 8192; 

CString x; 

//AfxMessageBoxC'Setting file name."); 
retval = W./AFCrecteO; 

//x.Format("MMFCreate returned: 7oi",retvaI); 
//AfxMessageBox(x); 

if (retval != OK) { 

//AfxMe5sageBox("5et Filename failed."); 
m_FileName = oldf ilename; 
retval = MMFCrcateQ; 
if (retval != OK) { 

m.FileName = "SlobMAAP; 

MMFCreoteQ: 

Set&lobNkime(CurrentSlobName); 
Throw5rror(0;'f ailed to create MMF!",0); 

} 

5etSlobName(CurrentSlobName); 




T>irow£rTor(0,'Tnvalid FileName." ,0); 

} . - ; .... 
^:/MfxMesscxgeBox("RkNqmeset;^^^ 

* Set&lobhlQme(CijrT^ 

SetModLf icdRogO; 

long-CeiobCtrl-SetStotusO - 

{ - . , . . 

^ if'ceiobPtr) ' ? ' * ' : ^ ' ' ' 

return &lobPtr->status; ; 
return -1: 

} 

void C(51obCtrl::SetStatus(long nNiewValue) 

TODO; Add your property handler here 
J(&lobPtr){ 

SI eiobPlT->status = (short)nNewValue; 

=P ScndNo+ify(eiobPtrJpVicwJDSTATUSXshorf)nNewValue); 

_ . . .. ........... . . , . . .... . ........ ... . . 

U) 

jletModificdFlogO; 

} / 

j! 3 

lorf CeiobCtrl::GetCommandO 

(Si ■ ■■ ■ ■ ■ : ■ ■ ■ ■ 

iff (eiobPtr) 

f 1 return &lobPtr->command; 
H-retum -1; 

} 

void CeiobCtrl::SetCommand(long nNewValue) 
{ 

// TODO: Add your property handler here 
if (eiobPtr) { 

&lobPtr->command = (short )nNew\/alue; 

SendNotify(SlobPtr,lpViewJDCOMMAND,(short)nNewVaiue); 

} 

SetModifiedFiagO; 

3 

long CeiobCtrl::SeteiobPtrO 
{ 

// TODO: Add your, property handler here 
return (long)&lobPtrj 

} 

void CGlobCtrl::5etSlobPtr(lon9 nNcwValue) 



1? 




{ 

// TODO: Add your property, handler here 
ftemoyeNotifyX&lobF^r^&etSafeHwjidOi^ 

. SlobPtr-=* (tSlob *)nTsleWValue; // Hope caller know what he's doing; 
•datasize =^GlobPtrr>datasi2c; \, \. 
://5efeiob'r4amc(CLP(r^ ' . . ' " 

SetModif iedFlagO; 

■}.••.. ■ . V . ■ . 

>ng,celpbCt^l^;^tbatQpt^.O' z---. • -V;.;.. -J 

// TODO: Add your property handier here 
if{GlobPtr) 

return (long)(&(elobPtr->data));// + sizeof (tSlob); 
else 

return 0; 

3 g 

vdiS CGlobCtrl:;SetDataPtr(long nNewValue) 

..{£.. ... _ ... . . . . , ^ , . . .... . . 

TODO: Add your property handler here 

/ir^etModifiedFlogO: 

3 , ■ , . " 

lo.i|g CfilobCtrlr.GetAvailSizeO 

{111 ■ ■"' ■ ■ * • ■ " ■ • ■ • • 

11^/ TODO: Add your property handler here 
iM (IpVicw) 

return m_nle5i2e- lpView->Next A vaii; 
eise 

return 0: 

} 

void CSiobCtrl::SetAvail5i2e(long nNewValue) 
■{ ■ 
// TODO: Add your property handler here 

y/ SetModif iedFlagO; 
3 



BOOL CSiobCtrl::SetReadOnlyMMF0 

{ 

// TODO: Add your property handler here 
if(lpView) 

return (BOOL)lpView->ReadOnly; 
else 

return 0; 

} 




* void C&lobCtrl::5ctftcadOnlyMA^F(BOOL b^slcwValue) 

■{ . . ■ . . ; . 

• '/AJODO: Add your propel^ handler* here ■ 

•: JpView->ftcadOnty'='(int)bNeWVdlue;' . • * * *:V . ' ■* ^ . 

BOOL CGIobCtrl::GetNotifyO ' . - 

{.....-... ... 

v._.:/i'_TOi><3iAdd.your"p^ .. .,. ; ; V. ■ .. 

• return m_Nptify; .' . " . 

} ■ ■ 

void CSIobCtrl::SetNotify(BOOL bNewValue) 

// TODO: Add your property handler here 

tfboL ret 
Piwm hWind; 

. . pSingleLock LockWie,(GiobLock^^ . • . . ...... 

rflAmbientUserModeO) { 

ThrowError(CTL_E_PBRMI55IONDENrED;'This property can only be set at runtime;',0); 
" return; 

li ' ■ 

]|[!eiobPtr){. ■ ■ 

Ifi ThrowError(CTL_E_PERMISSIONDENIED "SlobNamc property is not setAn Can not register Slob for notification.") 

■ ^ ^4 

return; 

} 

LockMe.LockO; // waits infinitely for resource to be available. 

// can use o timeout value as a-parameter (ms) if desired. 

hWind = SetSafeHwndO; 

if (bNewValue) 

ret = AddNotify(&iobPtr,hWind); 
else 

ret = RemoveNotify(SlobPtr,hWind); 

if (ret) 

m_Notify = bNewValue; 

LockMe.UnbckQ; 
SetModifiedFlagO' 



} 



long CSIobC-trl::&c*Value{long DimZ, long Diml) 

{ • " • 

.'. Ibng.t - '•• *■/.. / • ..." ■ . ■ ■. 

V ' if <e)obPi^':\- ■■ V** ^ - - '['i'^' 

r (bifT\2 *5ltorfVdiml)VDit^ ' - -/ ^ ; 

if ((I * eiobPlT->cltsi2e ) '< &iobPlT->datasi2e) ' 

{'■.•-.-•.•.•-■••.... ■ 

switch (eiobPtr->eltsi2e) 

case 4: * ' return G1bbPtr->datci,Lor^[l]: ' * ' \ 

- case 2: return &lobPtr->data,Shori[l]; 
default", return SlobPtr->data.Byte[I3; 
} 

} 

} 

return -1; 

} 9 

m 

voic|XGlobCtrI::5etValue(long Dim2, long Diml, long nNewValue) 
iif|(!ClpView->ReadOnly)) 

k 

. if(eiobPtr) 

P{ 

;f 5 I = (Dim2 * eiobPtr->diml) + Diml; 

if ((1* GlobPtr->eltsi2e)< eiobPtr->datcsi2e) ' 
{ 

switch (SlobPtr->eltsi2e) 
{ 

case A: SlobPtr->data.Lon3[I] = nNewValue; 
break; 

case 2: eiobPtr->data.Short[l]= (short)nNewValue; 
break; 

default: GlobPtr->data.Byte[l] = (BYTE) nNewValue; 
break; 

■ } 

// notify controls on list of change 
//if (SlobPtr->notify !=0) 

SendNotify(eiobPtrJpViewJDVALUt,0); 

} 

3' 

//SetAAodifiedFlagO; 



Hi 

ill 



MMFCreate: Create file (or just open it) and map a View to it 



long CeiobCtrl::MMFCreate(void) 

{ 



struct _stat buf ; 

int. . result j; 
, CString MMFName; ^ \ 

BOOL' FirstMapping; ■ 

.char: .'..buff er[2561 ^ . • :* .*.-.' 
' '//CSir\T\§[' '^emp}} * ' ••* > ' *'•* : 

//BYTE *testView; 

//BYTt- testRead; 

BYTE ^MMFLostBytc: 

long * N'cwRleArca* ' * . . V 

long • HandleListSize; 
* DWORD fileretval; 
long crrcode; 



if (ipView){ 

C|//rcftemp.Format("Ref Count- (MMFCrcate) f=%[";f); 

// Af xMcssagcBox(reftcmp); 
El lpVicw->Rcf Count— : 
4? Unmap VievvOf i=Mlc((lJ*VOID) Ip Vicw^^^^ 
t:&lobPtr = NULL;" 
j^jlpView=NULL; 
:JjlpLGSt=NULL 

CloseHandle(s_hFileMap); 
I-.CloseHandie(f); 
p if (SlobLock) delete SlobLock; 
III GlobLock= NULL 
iij if (MMFUck) delete MMFLock; 

aMMFLock=NULL; 

I- 



//AfxMessageBoxC'Made it post unmapping stuff"); 

fileretval r ::&etFullPathName(m_FileName,254,buffer,NULL); 

if (fileretval == 0) { 

m_FullPath = m.FileName; 
} else { 

m_FullPath.rormat("7oS\(LPCT5TR)buffer); 

} 

//AfxMessageBox(m_FullPath); 

MMFName = fietName(m_FullPath); 

// Initialize the Mutex objects 

S?X_NOTTFy_MUTEX ' MMFName + "NOTTFY"; 

SPX_MMF_MUTEX = MMFName + "MMP^; 

SlobLock = new CMutex(false^PX_NOTIFy_MUTEX,NULL); 




WlMFLock= new CMutex(false^PX_MMF_MU7EX>lua); 

//AfxMessageBox(MMFName); ■ . 
V /* &et dotaoSsbddtcd Wfth f " . • . ' . . ■ 

result .::_ftat( ro^FullPath;&buf); . 7/ result will be -t if f ilc doe^^ 

y/lf the file exists then get its filesize . 

. if Oresult){ ' . • 

if (buf ^_si2e > m_Filc5ize) 
-•• JtuBliE5j2e=."btrf;s1_siizei..l get ^i2(p:of file .. i.;,-.-, . .■ . • 

OldRleSizesbiifitjsric:' " • ."' 

}eisc{ 

OidRieSize = 0; 

} 

y/DEBU6 

//temp.Format(''MMF RleSize= %d\n"^RIeSi2e); 
i^/Lx)3ErTorString(tcmp); 

'4'i 

m 

/|-'Create an in-memory memory-nwpped file. 

f = CreateFiie( m_FullPath,. 

■'rSj eENEraC.READ :l GENERIC.WRnE', ' ■ ■ 

iJl FIL^SHARE_READ I FILE_SHARE_WRrTE. 

tl NULL, 

OPEN_ALWAyS. 

Q fIL^ATmiBUTO>>ORMAL.y/RleAttr, 

J: NULL): 

I'f (f ==INVALID_HAMDLE_VALUE) 

K 

Li JjAfxN\essageBox^'Cant open file"); 
//fta!SeException(997,0,0,0); 

//ThrowErTop(0 ."Invalid RIe Name",0); //ThowError only works in properties and methods 
return ERRJCNVALIDFILENAME: 

3 

y/AfxMessaseBoxC'Rle opened OK"); 
//Grow the file 

5etRlePointcr(f^lRleSi2e4slULL.FILE_BEeiN); 

SetEndOfnle(f); 

//Error checking? 



s.hRleMap = CreatcRleMapping(f , NUa, PAeE_READWRITt, 0, 0, MMFName /'ViewName''/); 

s_hRleMap = CreateFilBMapping((HANDLE) OxFFFFFFFF, NULL, PA&E.READWRTTE, 0, MMFSize, MMFName); 



errcode = GetLcstErrorQ; 

//reftemp.FormotC'Error code 7oi (7oi)",errcode,ERROR_AL;^ADy_EXISTS); 

//AfxMessageBox(reftemp); 

if (errcode = ERROR.ALREADY.EXISTS) { 

FirstMapping = false; 
} else { 




FirstMappi ng = true; 

} . . . . ■ 

if (sjiFiieAtop!= wU,) > ^ ' ■ ' ■■■ ■■"^ l;-- • ;•. ■ ■ ■ 

;>Xif (SctiiisfEr^oK) ^Hf^ 
// RIe moppir^ created successfully. Map a view of the file into the address space. 

IpVicw = (tControi *)MapViewOfRle(s_hFileMap. FILE_MAP_WRITE | RELE_MAP_READ. 0. 0, 0); .. 
if (IpView != NULL)- 

V/fill iiiO'sFfi^iie is expandeid ' ' ' •• .'. -'^l'-' " • :•• •. 

if (m_FMle5izc > OldFiieSizc) { . . 
//LogErrorStringC'F'll'ns 'i memory with 0's\n"); 
MMFLxistByte = (BYTE *)((long)lpView + OidRleSize); 
NewRleAreo = m_FileSi2c - OldFileSize; 
memsct(MMFLastByte,OjNlcwFileArca); 

} 

y/sct rest of &lob Attributes 
W If (lpVicw->nNotifyMaps == 0) 
fl lp\^ew->nNiotifyMaps = bEF_NOTIF/MAPS; 
JZ^ HandleListSize = 32*si2eof (long)*IpView->nNotifyMaps; 
t^H nuMoxUnks - lpView->nNotifyMaps*32; 

lpVicw->5i2e = nuFileSize; // make global 

lpView->RrstSlob = sizeof ( tControl ) + HandleUstSize; 

ipLost = {BYTE *)lpView + nuFileSize - sizeof (t&iob) - sizeof (int); 
,p if (!lpVicw->NextAvaiI) 

111 lpView->Ncxt Avail - stzeof ( tControI ) + HdndleUstSize; 

ill 

0 //reftemp.Format("Ref Count++ (MMFCreate) f=%l"^); 
i"^^ //AfxMessaqeBox(reftcmp); 
lpVicw->Ref Count++; 

.// clear out Notify array if this is the first mapping 
if (FirstMapping) { 

//AfxMessageBoxC"First Mapping, Clearing Notify Handles"): 
. for (i=0;i<m_AAaxLihks;i-H-3 

ipVicw->NotifyHandle[i] = 0; 

lpView->Ref Count = 1; 

// Reset globs 

MMFResetSlobsQ; 

} 

return OK: 

} 

else 

{ 

return ERR_CANT_MAP_VIEW_OF_FILE; 

} 

} 

else 

{ 




return ERR_CANT.CREATE.FILE.MAPPrNG ;-2; 
TeturnEftR_tNVALIDFlLENAME;'^^ ^ T ' ^ ' '* / 

nnunNii/ini/ifnniif/nnniNin/nNiiii//in/uuiiif 

// Create-Q unique MWF view name from the MMF filename -RK 
///////////////////////////////////////////////////////////////^ 
):XS^\r)Q.&e!t^ : . . i: ;- '\ , : \ ■ ' " . - 

intij; . ' • 

CString Buffer; 
int len: 

//AfxMessa9eBox(s); 

1= 0; 

i^n = s.eetLenqthO; 

•|V load Buffer with spoces 

•■ O^P^><i&n;»++) ........ 

J Buffer = Buffer + ' ' ' 

ii! 

■:|pr (i=0;i<len;i++) { 

./^ if (s[i3)=*\V){ 

Q BufferSetAtQ^O]); 

■ ill } ■ • • ■ ■ ' . • ■ • " 

lluffcr.TrimRightO; 

// Buff er = s.Right((ien-i>l); 
Buffer.MakeUpperQ; 
return Buffer: 

} 

long CSlobCtrl::MMFOpenCLPCT5TR FileName, long FileAttr, LPCT5TR ViewNamc iono FileSize) 
"{ • 
// Create an in-memory memory-mapped file 
// 

FileAttr = FILE_ATTRIBUTt_NORMAL // force it for now 
f = CreateFile( FileName, 

GENERIC_READ | GENERIC, WRITE. 

FTLE_SHARE_READ | FILE_SHARE_WRITE, 

NULL. 

OPEN_ALWAYS. 

FileAttr, 

NULL); 

if Cf ==INVAUD_HANDLE_VALUE) 
{ 

// MessageBox(myhWnd_TEXnC"Cant open f iie")>)ULL.MB_OK); 
return 0; 



} 

s^hFileMap = CrcateFileMapping(f , NULL, PAGc_?^EADWRITE, 0, FileSizc, VicwNamc); 
.// • f DP memor^-pnly,' use "Cr . . 

• /: if Xs_hFaeMap;j= NULL).^ , , . . , - • . . " ; . 

// if (SctLostErrorO == BRROR_ALREADY_EXISTS) MessogcBoxCmyhWnd-, TEXT("MMF Already Exists.")/ NULL, MB.' 

// File mapping created successful ly^ Map Q view of the file irrt-o the address spa 

IpView = .(tControl *)MapViewOf Rlc(s_hFileMqp, FILE_MAPJiEAD •] FTLE_MAP_WRITE, 0, 0, 0); 

J;:.-vjf;(ip\fieviLfe>siuLL) :ir\.r--:^ v .v,\..:- : . • -:>.^y^:-'.v"^:::' 

// View mapped successfully. 

//To unmap the view: (This protects the data from wayward pointers). "UnmapViewOf File((LPVOrD) IpView);" 
lpView->Si2e = RIeSize; // make global 
lpView->Rrst&lob = sizeof ( tControi ); 

IpLast = (BYTE *)lpVicw + FileSize - sizeof (tSlob) - sizeof (int); 
if (!lpVicw->Next Avail) lpView->NextAvaii = sizeof ( tControl ); 
£1 return OK; 
} 

W else 

■ pi--.. ..... .... . . . ........ .: .......... .... 

RaiseException(999, 0,0,0); 
//McssageBoxCmyhWnd, _TB<T["Can't map view of file"), NULL, MB^OK); 
■fj return B«?_CANT_MAP_VT[EVlLOI\_FILE; 

h 

else 

■f ••- ' • ■ ■ ■ • • •■ ■ • 

ill RaiseException(998,0,0,0); 

Q //MessageBox(myhWnd ^TEXTC'Can't create file mapping.")>3ULL, MB_OK); 

H. return ERR_CANT_CREATt_i=ILE_MAPPINS ;-2; 

return 0; 

} 

MMFRcmapView: Close view and reopen cs different size 

long CeiobCtrl::MvMFRemapView( long newsize ) 
{ 

return MMFCreateQ; // 03/1Z/98 RBK 

} 



^]^W»^»W XJfcXX»XXXXX»RXR» » KRXXXX*.XXXAXXXXX*XXRRK»XXXlkA*XX» l lJKR»KX <lr<g RXXXXJ < lilllXXK ^ 

MMFSetSloblx: Returns index (offset) of Glob if name is found, otherwise 0 

».»XJfcX»»^ XmXXXXX»X » *fc»*»XXXXXJ > L»X»XAXJIRRRAll»XXWIt Tr JlXXKXfc»RRilRJl»XX »C»rtC5t^g» 

long CSIobCtrl::MWiF&et6lobIxCLPCTS"re SlobNamc) 

{ 

teiob *ipeiob; 
CString name: 



if (SlobName != NUa) 

name = SlobName; 
else 



return 0; ■ ' . ■ 

fori . . ■ ■ . . . 

' .lpj&l.ob=ClSlob.*)(Ont)lp^^^^^ ... . '. ^ : , . ,: 

■. - lpGlob->5i2e'<iii (int)lp^lob<(int)ipL-ast; V ' ' ■ 

' IpGlob = (teiob*)((int)lpeiob*lpeiob->sizc) . • • 
) 

if (!_strnicmp( (const char *)eiobName, (const char *)((tSlob *)lpGlob)->name, Glob_NAME_LENSTH ) ) 
{ 

return (int)lp&lob - (int)lpVicw; 

J 

rerfurn 0; 



,<yl'MFErase&lob: Clear the Slob to zeroes, but leaving .its space sti!! linked i 

voiSfcsiobCtrl-.MMFEroseeioK tSlob *B ) 

int save^size; 
|!^CString DebugStr; 

II 

BI(B) 

I; 

'-^save_si2e= B->si2e; 

//DebugStr.FormatC'SaveSizc = 7oi\n"^ave_si2e); 
/ /LogErrorString(DebugStr); 

memset( (BYTE *)B, 0, save.size): // clear ail 
B->si2e = save_si2e; // restore si2e for linking past 

} 

} 



m. 



MMFFirstSlob: Returns pointer to 1st Glob in the MMF 

t(5iob ''CSiobCtrl::MMFFirsteiobO 
{ 

return (tfiiob '')((int)lpView + lpView->First&iob); 

} 

MMFNextAvailSlob: Scans from beginning for empty Slob of adegucte size. If none, uses Next Avail pointer 

t&lob *Ci51obCtrl::MMFNextAvail5lDb( long size ) 
{ 

CString DebucStr; 




im lastchQnce=(int)lpVicw + m_FileSize - size - 1; 
tSlob "IpSlob; 

■•■ //DESOs ■ ;■.■■■ •■> V .:; •■ ••••^•'V- ' ^ 

..; //<peiob s /y^iyiFFirsteiobO;. ... ... ' •• ■ 

'■- •V/E>ebugStr'.F6.rniatrFirsfi^^^ ?;J\^i^lpSJoV««2&5^:-^^^^ / •-".:.V •' . .: .. - , ' . j.- .• ; ' .v . • ; 

//LogErrorString(bcbugStrj; 
. //END DEBUe ..... 

•-■ :f9r^(:.^ %•.;-•...'>• .-y/chaihthrDeibbs^4nA^Fv .■■ 

;lpeiofa=A^MfFirst&iobbr • , . ■■ ■■■■'j/fifsi'&isbj''"'^ ' ":V.- • 

lpSlob->si2e 44 ((int)lpeiob < lostchance); // if size is nz] within range ■ 
Ip&lob s (tSlob*X(int)lpeiob + lpSlob->size) 

){ ■ . 

//DcbijgStr.Format("Name: 7oS size: %i\n", lpGiob->name,lpSlob->size); 
//LogEm)rString(DebugStr); 

if (lpeiob->namc£0] = '\0' && lpGlob->size >= size) // if has zeroed-out name and is big enough... 
Ci return IpSlob; // return pointer to it 

^11}- 

W falls thru loop.„no empties found 

^Slbb = (tS[pb*X(int)lpView ^ lpView->Ne>ct Avail); // else get pointer to next one in MMF 
5^ (Ont)lpSlob>' lostchance) // is there room Vor it? 

J|jip&!ob = 0; //no,. return 0 

• return IpSlob; 

} ^^'^ 

"^Qf^L: MMFeeteiobPtr: Given the SlobName, find and return pointer to Slob, else zero 
lorij CSlobCtri::MMFSetSlobPtr(LPCT5TR SlobName) 

{ CI 

NSlob *lpSlob; 
//CString temp; 

for ( 

lpSlob=MMFFirstSlobO; 
ipSlob->si2e ii ((int)lpSlob < {int)lpLcst); 
. IpSlob = (tSlob*)((int)lpSlob-lpSlob->si2e) 

){ ' ' 

r 

if (LineDebug) { 

temp.Format("SlobName: 7oS\nlpSlob = 7ei , IpLost = 7oi , Size = 7oi\n", ((const char ")((tSlob ")lp&lob) 
->name),ipSlob,lpLcstjpSlob->si2e); 
LogErrorStr i ng(temp); 

) 

V 

if (Lstrnicmp( SlobName, (const char *)((tSiob •^)lpSlob>>name, Siob_NAME_LENSTH )) { 
//LineDebug = false; 
return (int)lpSlob;//true 32-bit pointer 

} 

} 

//LineDebug = false; 



return 0; 

5 ■ • . •■ . . . • • 

■-■:--.1^ipb>lJsbb?. -/-■"■•^^^ /.' y'-^T: ; A"., 

inti; 

BYTE* temp; . 

long* MapPtr; ■ ■ . . " - 

^■"..lo'og jddtociiunt; ••• • r,-^^..-,',.' 7... ■ >- 

..foX ■ ; \ • 

lpSlob=MMFFirsteiobO; 
lpeiob->si2c && (int)lpeiob<(int)lpLast; 
IpSlob = (tSlob*X(«nt)lpeiob+lp&lob->si2c) 

){ 

dotacourtt = lp&loi»diml * lp&lob->dim2 * lp&lob->eltsi2c; 
G| temp = (ByTE*)lpSlob + sizeof (tSlob) + datacx»unt; 
■H for 0=O;i<lpView->nNotifyMaps;i++) { 
^ // lpSlob->notifymap[i3 = 0; 

MapPtr = (long*)temp + i;. • 

S ■ ^MapPtr = 0; ' 

Up 

in ^ 

ip&lob->command = 0; 
r} IpSlob-^status = 0; 

I"} 

voia CSlobCtrl-.iMMFCIear&lobBitsCbng index) 
{ 

teiob *lpSiob; 

long mapIndexjDitlndex: 

BYTE* temp; 

long* MapPtr; 

long dctacount; 

maplndex = index/32; 
bitlndex = index - maplndex*32; 

for ( 

lpSlob=MMFRrsteiobO; 

((int)lpSlob <= (int)lpU2St) && lp&lob->si2e; 

IpSlob = (t51ob*)((int)lp&lob+lp&iob->si2e) 

){ 

datocount = lp&lob->diml * lpSlob->dim2 * lpSlob->ettsi2e; 
temp = (ByTE*)lpSlob + sizeof (t&lob) + datocount; 
MapPtr - Clong*)temp + maplndex; . 

//lp&lob->notifymapImapIndex] &' (NOTTP/MASK " BitList[bitIndex]); 

*MapPtr 4= (NOTTFYMASK " (l«bitlndex)); 

if (NotifyLi^IsEmpty(lpSlob)) lp51ob->ptrMap = 0; 



) 

retura* 

iDng.CSlobCtrl::A^MFCIfedr.erobBit(tS^^^ ■ 

tSlob '^IpSlob: ' ' ' ' . 
long maplndcx^itlndcx; 
BYTE* temp;. 

'r-.\pr\^* l^xip!^r^ - .. ... ... f . ^ 

' r long count; • ''' " ' ' 

- long datacount; 

count - 0; 

maplndex = index/32; 
bitlndex = index - maplndex*32; 

ui lp&lob=MMFFirstSlobO: 

((int)lpSlob <= (int)lpLast) && lpSlob->si2e; 
I? ' IpSlpb = (tSlob*X(int31pSlob+ipSiob->si2e) 

■^f datacount = lpSlob->diml * lpSlob->dim2 * ipSlob->eltsi2c; 
^ I temp = (ByTE*)lpSlob + sizeof (tSiob) + datacount; 

MapPtr = (long*)temp + maplndex; 

//lp&lob->notifymap[mapIndex] i= (NOTIFYMASK " BitList[bitIndex]); 
P if (*MapPtr & (l«bitlndex)) { 

III " count++; ■ ■ • . 

Ill if(&Ptr== lp&lob){ 

O *MapPtr A= (NOTTFYMASK " (l«bitlndex)); 

l^v count—; 

if (NotifyListIs£mpty(ipSlob)) 1pSlob->ptrMap - 0; 

} 

} 

} . 

return count; 

} 

BOOL C&lobCtrl::NotifyUstIsEmpty(tSlob *^lpSlob) 
{ 

BYTE* temp; 
long* MapPtr; 
int i; 

BOOL isEmpty; 
long datacount; 

isEmpty = true; 

datacount = lpSlob->diml * lp&lob->dim2 * lp&lob->eltsi2e; 
temp = (BYTE*)lp&iob + sizeof (tSlob) + datacount; 
MapPtr = Clong*)temp; 

for (i=0;i<lpView->nNotifyMap£;i++) { 




if (*(MapPtr*i)) isEmpty = false; 
return IsEmpty;* ' * . ' 

void CSIobCtrl::5etBitMap(tSlob* Slobhrjong irKi«^ ' 

-{ ' • 

long.maplndex^itlndex; ^ 

long datacount; 

maplndcx = index/32; 
bitlndex = index - mapIndex*3Z; 

datacount = eiobPtr->diml * GlobPtr->dim2 * GlobPtr->eltsi2e; 
j|j(&lobPtr->ptrMap == 0) { 
'|:^fSlobPtr->ptrMap = sizeof (t&lob) + datacount; 

m 

iY(5lobPtr->notifymapimQpIndexi |= BitList[bitIndex]; 

ill 

femp = (ByTt*)SlobPtr + eiobPtr->ptrMap; 

MapPtr = (long*)tcmp + maplndex; 

p^apPtr 1= (l«bitlndex); //BitUstrbitlndex]; 

3 I 



long CSiobCtrl::MMFCIoseO 

{ 

// TODO: Add your dispatch handler code here 
//reftemp.FormatC'Ref Count- (W^MFClose) f=7oi\f); 
//AfxAAcssageBox(reftemp); 
Ip View->Ref Count— ; 

RemoveNotify(SlobPtr,&et5afeHwndO); 

UnmapViewOf File((LPVOID) IpVicw); 

lpView=NULL; 

lpLast=NULL 

CloseHandle(£_hFileMap); 

return CloseHandlc(f); 

} 

long CSIobCtrl:;MMFAddSlob(LPCT5TR SlobName, long Unitslndex, long DimZStze, long DimlSize, long ElementSize, long T 

ype, long Extra) 

{ 

int count ,This&lob5i2ei,eftOverCount,i; 
long bitmaploc 
BYTE* temp; 
//CString DebugStr; 




long* MapPtr; 

f^empvcNotif)^(eiobF^r,&ct5afcHwndO): 

■ if (!Dim2Si2e) , . . _ ... . 7/ if 2erp,.makeT 1 . . . - 'i.-..- . • -.l ■ 

if (iDimlSizc) • , • 

Diml5i2e = l; . : 

//LogErrorStringfDcip'ugStr*); • ' ■ *• ' r-. ^' ' : v • • • .... .y. 

GlobPtr = (tSlob *)MMFGetSlobPtr( GlobName ); // first look for one by this name 

//Debug5tr.Format("Prev Slob Ptr: 7oi\n",SlobPtr); 
//LogErrorString(DebugStr); 

if f(SlobPtr) /y found a previous, maybe can reuse space 

MMFEraseSlob( GlobPtr); // clear it, maybe Next Avail can reuse it 

= Dim2Size * DimlSize * ElementSize; // calc data size 
. . . ^is&lobSize = {sizeof(t61ob} + count + 3) d -3:// add size of Glob- and put on even 4-byte boundary. 
&i|tmaploc - This&lobSize; 

iffiisSlobSize sizeof (long) * lpVicw->nNotifyMaps; 

//DebugStr = "Looking for space for SlobXn"; 
0LogErrorString(Debug5tr); 

gJobPtr = MMFNextAvailSlob( ThisSlobSize ); 7/ get pointer to area of adequate size . 

m ■ ■ " . 

pDebugStr.Format("Found Space at: %i\n",(long)GlobPtr); 
P^/LogError5trino(Debug5tr); 

while (ISlobPtr) // no room, make bigger 

{ 

if (ipView->Ref Count > 1) { 

TnrowError(CTL_E_PERMISSIONDENIED,"MMF can not be expanded. Too many connectionsAnClosc all other appii 
cations and try again.")-* 
return NULL; 

} 

//DebugStr.FormatC'Resizing for 7oS\n",GlobName); 
//LogError5tring(DebugStr); 

//DebugStr.FormatC'FileSize Before = 7oi\n",m_File5i2e); 
//LogErrorStringCDebugStr); 

//LineDebug = true; 

m.FileSize += (ThisSlobSize + 4095); // calc new size of file 
m.FileSize 4= -4095; // make size o multiple of 4096 



//Debug 



//DebugStr.FormatC'FileSize After = 7oi\n",m_File5ize); 
//LogErrorStringCDebugStr); 

MMFCrexiteO; /. ■ -unmap/ remap view io increase size,- 

felobPtr " -AAMFNcxtAvall^lbbC THis^^^ V/ get ptSmtcr to areZi ofva'detjuctc-sizei 



//Debug 

■y/pebugStrJormatC'Glpbh-r After Remap: %i\n'';Glo^^ .• 
;:;:"//Lbg£rT0^51ring{pcbugSt^O; r^^^ .7;--.':.;.: /' - r- -a/-- v: '.'^^^^^ V"/** 

* SetModif iedFlagO; properties have changed 

} 

// setup member variables 

datasize = count; 

/t^ setup Slob data variables 

l^ftOvcrCount = GlobPtr->size - ThiseiobSize; // subtract this size from size that might have been in 

|iobPtr->si2e = This&lobSize: 

SlobPtr->dim2 = (short)Dim25ize; 

^obPtr->diml =. . (short)Diml5i2e; . 

!)gobPtr->eitsi2e = (short)ElementSi2e: 

pobPtr->type = (short)Type; 

feiobPtr->UOM - Unitslndex: 

^;&lobPtr->extra = (short)E>ctra; 

@obPtr->command =0; 

;^obPtr->status = 0; 

^ilobPtr->ptrMap = 0; //bitmapbc; 

^iemp = (ByTE*)&lobPtr + bitmaploc; 

ijfpr (i=0;i<lpView->nNotif yMaps:i++) { 

//e!obPtr->notifymap[i] = 0; 

MapPtr = (iong*)temp + i: 

*MapPtr = 0: 

-} 

SlobPtr->dctasi2e= count; 

memset( GlobPtr->name, 0, Glob_NAME_LENSTH ); // clear name to zeroes 

.strncpy( (char *)(eiobPtr->name), SiobName. &iob_NAME_LENSTH ): // copy name in 
if ((int)&lobPtr == ((int)lpView ^ ipView->Next Avail)) // if new fiiob is ct end of file (not reusing ot 
her area) 

lpView->Next Avail TnisSlobSize; // incr nextavail pointer 
else // if bytes left over, make new [size] header for empty s^:xc^ left beyond this Slob 

{ 

if (LeftOverCount > (int)(si2eof (tGlob) sizeof (long) * ipView->nNotif yMaps)) { 

((tSlob ^)((int)SlobPtr + Tnis£lobSize)>>si2e = LeftOverCount; // pot o [size] value past this Slob to 
reclaim space beyond 
} else { 

eiobPtr->size = Tnis&lobSize + LeftOverCount; 

} 

} 

//DebugStr = "Slob successfully inserted, \n"; 
//LogError5tring(Debug5tr); 



SetModifiedFlagO; 

.^/..•return (int)SiobPtr; . ;// returns'&lol>.pwnter;'. . ; . . . ■ . v. .. . • • 

ng Type, long Extra) 

int status, uom; ;^ - ' . ; ' ; , 

..;cStPhigUnit5;\:/.-.<y\ ^ V^*-' '-"■""^'^ • ' '-^7'''' ^ r-'^ 

; int cdunt; • " • ■ 

//CString temp; 

count = DimZSize * DimlSize * ElementSize; 
if (UnitsName 1= NULL) 

Units = UnitsName; 
else 

□Units = ""; 

•„f'i 

il|Units.&etLengthO != 0) { 

:^^uom = MW^F&etSlobIx( Units );,.. . 

5:if Ouom) MMFAdd&lobC Units, 0,0,0,0,-1,0); // add unit of measure first 
^^{uom = MMF&etSlobIx( Units ); 
ftlse { 
^, 'uom = 0; 

s|itus = MMFAdd&iob( SlobName, uom, DimZSize, DimlSize, ElementSize, Type, Extra ); 

l|temp.Formatr(%0 Add&lobEx finished successfully for: %s\n",status, SlobName); 
jSlogErrorStri ng(temp); 

return status; 

} 

BOOL CSIobCtrlr.&etFirstSlobO 

{ 

RemoveNotify (SlobPtr ,6et5af eHwndQ); 

SlobPtr r (teiob *)((int)lpView + lpView->FirstSlob); 

// HS 980423 Set&lobName((LPCT5TR)SlobPtr->name); 

datasize = 61obPtr->datcsize; // HS 980423 copied from SetSlobName 

m_&lobName = SlobPtr->name; // HS 9B0423 copied from SetGlobName 

SetModifiedFlagO; // cause properties to re-read 

if (SlobPtr->size) 

return true; 
return false; 

3 

BOOL CSlobCtrl::6etNext&lobO 

{ 

RemoveNotify(&lobPtr ,&etSaf eHwndQ); 

eiobPtr = (teiob *)((int)&lobPtr + eiobPtr->size); 

// HS 980423 SetSlobNameC(LPCTSTR)SlobPtr->name); 



datasi2e = SlobPtr->datasize; // H& 980423 copied from SetGlobName 
m.GlobName = eiobPtr->name; // HS 9804Z3 copied from SetGlobName 
...Sef Modif iedFlagO; // cause properties to re-r^d 
if (GlobPtr->5i2e) 

return true;.." • . ■ . • • .. ' ... 

^. return false; . ■. :*• '-'••'•*■ < ' • \ •' 

) ' ' 

void C&lobCtrl::EraseO ^ . 

LockMelockO: 

RemoveNotify(GlobPtr ,&etSaf eHwndO): 
MMFEroseGlobC GlobPtr ); 
LockMe.UnlockO: 

} I 

voi^E CGIobCtrl::AAMFEraseO 

Jc^ingleLock LockMe(MMFLock); 

111 

^^LpckMe.LockO; 
^if (IpView) 

I 

intsize; 
ni int nmaps; 

p RemoveNotify(eiobPtr,GetSafeHwndO); 
size - ipVicw->5i2e; 
nmaps = lpVicw->nNotif yMaps; 
memset( IpView, 0, size ); 
lpView->nNotifyMaps = nmaps; 

ipView->N£Xt Avail = lpView->nrstGlob = sizeof ( tControl ) + 32*sizeof (long^nmap 
lpView->Si2e = size: 

} 

LockMe.UnlockO: 

} 

long CGlobCtrl::GetNotifyUst(long index) 
{ 

BYTE* temp: 
long'^ MapPtr; 

if (IpView) { 

if ((index < 0) 1 1 (index >= lpView->nNotifyMaps)) return 0; 
// TODO: Add your property handler here 
if (GlobPtr && GlobPtr->ptrMap) { 

temp = (ByT5*)GlobPtr + GlobPtr->ptrMap; 

MapPtr = (long*)temp + index; 




return "MapPtr; 

} 

3 •.. . • 



■ • . return b;'.; :.; .: • ..: v.- • •. 

■y.J ;\' '\. V"-::;- ;-y.-: •• ^---v ■v:-/ " . • .. .. 

. void ceiobCtrl::SetNotifyList(lon9 index, long nNewValue) 

■{.....-..;: :• ■ • . ■ . ... 

:.::.irj>ii^mo-^:mYOiitv^e,r:P/'haTKii^ .. c.^-: -.v. 

SetAAodifiedFlogO;- . ' ' 

■ } •: 

BOOL CeiobCtrl::AddNotify(teiob* 6IobPtr>iWND my_hWnd) 
int index; 

# add my hWnd to notify list 
^p(eiobPtr){ 

:^Nndex = RndHandieCmyJiWndj; // iookjor a previous entry 
]Z' if (index != -1) { ' // if we find one. dont add another! 

jt| SetBitMap{eiobPtrjndex); //RK 042498 

C i return true; 
) 

4' y/ didnt find one so make one 
• Rl index = RhdHandle(0); 7/ look for first 0 entry 

y 1 if (index != -1) { // make sure there is one available 

U jpView->NotifyHandle[index] = myJiWnd; 
nuNotify = true; 

r 

CString Temp; 

Temp.Format("index = %d Power(index) = %d", index ,Power(index)); 
AfxMessa9eBox(Temp); 

5etBitMap(&lobPtr,index); // add ref to notify list 

return true; 

} 

) 

TnrowError(C"il_c_OUTOFMEMORy,"Out of memory in MMF. Can not register Slob for notification."); 
return false; 



BOOL C(5iobCtrl::RemoveNotify(tSlob* SlobPtr, HWND my_hWnd) 
{ 

int index; 

y/ remove my hwnd from the notify list 
if(SlobPtr){ 

m.Notify = false; // H5 980423 clear notify flag in any cose 

index = FmdHandle(my_hWnd); // look for handle in list 



if (index == -1) // no^ '^hcrd 

return true; // dont need to remove anything 

lpView->NotifyHahdle[ind^'] =^^^ 
:• .MMFClearSlobBitsCindex);. - .-. • :.v • .' ■ 

<.:\T/&omr-inoii^^^ f-^ remove ref from notiTy map 

return true; ' . *. 

} 

return false; . ' . . • . • 

-^J-. •■ '-r- : ■-tv ' :'r V '■•■.■'.■>:.■ .■•V'':V : "• . 

BOOL ceiobCtrl::RemoveNotifyX(tSlob* SPtr. HWNb my_hWnd) 

{ " . 

int index; 
long count; 

// remove my hwnd from the notify list 
if|eiobPtr){ 

index = RndHandlc(myJiWnd); // look for handle in list 
^ if (index == -1) // not there! 

return true; // dpnt need to remove anything . , 

count = MMFClear&lobBit(ePtr,index): 
ijj if (count ==0){ 

si lpView->NotifyHandle[index] = 0; 
m_Notify = false; 

|} . 

^11 return true; 

Ij 

■return f abe; 

int ceiobCtrl::rindHandle(HWND my.hWnd) 

{ 

int i; 

for (;=0;i<m_McxLinks;i-^) 

if (ipView->NotifyHandle[i] == my.hWnd) return i; 

return -1; 

} 

long ceiobCtrl::&etNotifyHandle(short index) 

{ ^ . 

// TODO: Add your property handler here 
if ((IpView) (id (index < m.MoxLinks) (index >= 0)) 
return (long)lpView->NotifyHandle[index3; 

return -1; 

} 

void CSlobCtrl::SetNotifyHandle(short index, long nNewValue) 



{ 

// TODO: Add your property handier here 
. SetModifiedFlagO;' • ■ ;/* 

• l6r^'.Power(int. operand) . ^' ' ""• ' '"' '■' " 

int i; 

long-value; . - 

if (operand."' 0) { • - • . ' • • 

value = 1; ' . 

}else{ 

value =1; 

for(t=l;i<=operand;i++) 
value *=2; 

h 

heturn value; 

. vo||c&iobCtrj::5endNotify(t&lob* SjobPtr, tControl* IpView^hort-IDProp^hort PropVaiue) . , . 

^ TODO: Add your dispatch handler code here 
'm\ i,maplndexi)itlndcx; 
jint results; 
iiWND mHwnd; 
J&lobMsg msg; 

iMng* tempmsg; . 
^iong SloblD; 
"int count: 
' iong n^ap: 

count = 0; 

// set up message to send for notify 

msg.PropID = IDProp; 

nisg. Value = PropVaiue; 

tempmsg = (iong*)i5(msg; 

SloblD = (long)SlobPtr - (long)lpView; 

mHwnd = SetSaf eHwndQ: 

if (m_AutoNottfy) { 

if (SlobPtr ii GlobPtr->ptrMap) { 

for (mapIndex=0;mapIndex<lpView->nNotifyMaps;mapIndex-H-) { 

map = &etNotifyList(mapIndex); 
if (map i= 0) count++; 

for (bitlndex = 0:bitIndex<32;bitIndex-H-) { 
i - mapIndex^SZ+bitlndex; 

if ((map & (l«bitlndex)) ii (mHwnd ipView->NotifyHandle[i])) { 

results = ::PostMessage(lpView->NotifyHandle[i],USE?^_VALUECHANSED,"tempmsg,eiobID^^ 

if (Iresults) // if the handle is invalid then remove it from the list 



RcmoveNotify(SlobPtr,lpVicw->NotifyHandle[i]); 

) 

■■. ••. }••• ■ . •. ■; .-. . ■ ■ .. 

• .••).••■•■■ • . ■ •• • ' 

-if Ic6urrt.==p)SjobPtr->ptrMap=.C>; .. ,. ■ . 

) . . . • . • 

void CGbbCtrl::priFmdiffeelB^ •:; : . -.; , T;-/ ; :. 

// TODO: Add your specialized code licre and/or call the base c\ass 
Rcnw)veNotify(6lobPtr^tSafeHwndO): 
COleControlr.OnFinalReleaseO; 

} ' - 

longjCeiobCtrl::OnVaiueCiianged(UINT IParomJ-ONie rParam) 

r Q 

/Msnpack IParam for PropID and Value 
tsiobMsG* msg; 

ngg = (tSlobAAsg*')(5(IParam; 

III 

RfeChan3e{msg->PropID,msg->Value,rParam); 
return 0; 

} Q 

shdrt CSIobCtrf-.&etByteValucO 

TODO: Add your property handler here 
77 returns c byte (short was the only option in the wizard :) 
if (SlobPtr) 

return SlobPtr->data.Bytc[0]; 
return 0; 

} 

void C5iobCtrl::3etByteVaiue(short nNewVaiue) 

■ 

// TODO: Add your property liandler here 
if ((GlobPtr) && !(ipView->ReadOnly)) { 

SlobPtr->datQ.Byte[0] = (ByTE)nNewVaiue; 

// notify controls on list of change 
//if {eiobPtr->notify 1=0) 
SendNotify(SlobPtr,lpVicwTDVALUE,0); 

} 

SetModifiedFlogO; 

} 

short CeiobCtrl::&etAbValue(long index) 

{ 

// TODO: Add your property handler here 



if ((GlobPtr) A& (index < GlobPtr->datasi2c)) 

return SlobPtr->datCLByte[indexl; 
return 0; 

}.• ■. ' ■ . . ■ . .'■ ' • ■ ■ ■ ■ ■■• ■ ■ ■ ■ ■ 

" void CGIobCtrr:rSef AbValue(long index, shoh nMcwVodue) - ' / - • ." 

V • ". ■ 

// TODO: Add your property handler here 
if (!(ipView->fteQdOnly)) 

// notify controls on list of change 
//if (eiobPtr->notify !=0) 
SendNotify(eiobPtrJpViewJDVALUE,0); 

} 

//SetModif iedFlagO; -RK not needed for non persistent properties 

} o 

lor^fcGlobCtrl::&etLValueO 

tJt TODO: Add your property handler here 
!f{(eiobPtr) 

return Slob?tr->data.Long[0]; 
return 0; 

} Ci ■ 

voJUICSiobCtrl-SetLVdlueObng nNewValue) 

1^ TODO: Add your property handler here 
if ({SiobPtrj A4 !(lpView->ReadC)nly)) { 
if (eiobPtr->eitsi2e ==4) 

GlobPtr->data.Long[0] = nNewValue; 

// notify controls on list of change 
//if (eiobPtr->notify !=0) 
5endNDtrfy(SlobPtrjpViewJDVALUE,0); 

} 

//SetModif iedPlagO; 

3 

long CGlobCtrt::5etAlValue(long index) 

{ 

// TODO: Add your property handler here 

if ((SiobPtr) i& ((index * sizeof (long)) < SlobPtr->datcsi2e)) 

return SlobPtr->datQ.Long[index3; 
return 0; 

} 

void CSlobCtrl::SetAlValue(long index, long nNewVolue) 

{ 

// t ODO: Add your property handler here 



if (!ClpView->fteQdOnly)) 

if ((eiobPtr) <StA ((index* sizcof (long)) < eiobPtr->dotasi2e)) { 
GlobPtr->datQ.Longtindex] = nMewVaiue; 

• ;. // f)ptify controls oa list of change-. ^ •. . - - .. . ' . 
• //i'if (&iobhVT>nDtify 1=0^^ ■ • .'' 

'SendNotify(SlobPtr,lpVicwJDVALUE,0); 

}• 

//SetModifiedFlagO; . . : .; . ,- . . . : . • 

short CGIobCtrl::eetIValueO ' ' ■ 

{ 

// TODO: Add your property handler here 
if(eiobPtr) ■ . 

return eiobPtr->data.Short[0]; 
return 0; 

} s 

voi|k:eiobCtrl::SetlValue(short nNewValue) 

j'li TODO: Add your property handler here 
jfl((eiobPtr) && l(lpView->ReadOnly)) { 
\lif (eiobPtr->eltsize >= 2) 

GiobPtr->dataShort[0] = nNewValue; 

J= // notify controls on list of change 
jII //if (eiobPtr->nbtify 1=0) 

^ SendNJotify(eiobPtr,lpView JDVALUE,0); 

fl 

'7)setModifiedFbgO; 

} 

short CSIobCtrl:;(5etAiValueClong index) 
{ 

// TODO: Add your property handler here 

if ((GlobPtr) && ((index * sizeof (short)) < eiobPtr->datasi2c)) 

return &lobPtr->data.Short[index3; 
return 0; 

) 

void Ci51obCtrl::SetAiValue(lon3 index, short nNewValue) 
{ 

// TODO: Add your property handler here 
if (!(lpView->ReadOnly)) 

if ((SlobPtr) && ((index * sizeof (short)) < SlobPtr->datasize)) { 
SlobPtr->dGtcShort[index] = nMewValus; 

// notify controls on list of change 
//if(SlobPtr->notify !=0) 
SendNDtify(eiobPtr,lpViewJDVALUE,0); 

} 



//SetModifiedFlagO; 



long CSlobCtrl::6et\/alueSD(lon9 n) 

: • 7/ TtSDD: "ABd ypurpropefHy handler- W ' "■ .* * 

if{GlbbPtr). '■ \ . 

{ *• - ' 

rf ((n * GlobRtr->eltsi2e ) < eiobPtr->datasi2c) , 

- •■• 7^7^ A^r- --^^'' '"^^^ '/^ y,,r^C - '- l-r ••^'r- 

case 4: return SlobPtr->datQ.Long[n]; 
case 2: return &lobPtr->data.Short[n]; 
default: return eiobPtr->data,Bytc[n3: 

} 

} 

return -1; 

} ^ 

voi£cSlobCtrl::Set\/alueSD(long n, long nNewValue) 

{ E 

1)13 

/i/iTODO: Add your property handler here 
if (!(lpView->ReQdOnly)) 

h 

Jlif (SlobPtr) 

ni{ 

in if ((n * eiofaPlT->eltsize ) < SlobPtr->datosize) 

O { 

switch (6lobPtr->eltsize) 
{ 

ccsc 4: GlobPtr->data.Long[n] = nNewValue; 
break; 

case 2: SlbbPtr->dataShort[n3= (short)nNewValue; 
break; 

default: eiobPtr->datQ.Byte[n] = (BYTE) nNewValue; 
break; 

} 

// notify controls on list of change 
//if (eiobPtr->notify !=0) 

SendNotify(&lobPtr,lpViewTDVALUt,0); 

} 

} 

} 

//SetModifiedFlagO; 

} 

B5TR C&lobCtrl::&etStrValueO 
{ 

CString strResult; 
if (SlobPtr) 




slrResuit = (eiobPtr->datQ.Byte); 
7/ TODO: Add your property handler here 

return strResult^AllocSysStringO: 



9/: 




void CSlobCtr1::SctStr\/alue(LPCT5TR IpszNewVdue) 

{ 

// TODO: Add ypur property, handler here 
- ..7/CStnng;strR^.ultflp?2NewA^Gb^ '"-y • . . 
•'--intb r.'' "\ r,v\;y 

intsize; 

if (!Cipyiew->ReadOnly3 (SlobPtr)) { 
size = strlenOpszNcwValue): 
f or{i=0;(i < size) && {i < (SlobPtr->datasizc-l));i++) { 
SlobPtr->data.ByteIG = lpszNewValue[i]; 

;=feiobPlT->data.Byte[i] = -\0': 

?7/ Tiotify corrrrojs or list, of change 
J°5//if (ei6bPtr->notify 1=0) 
IP SendNotify(eiobPtr,lpViewJDVALUE,0); 

iTiSetModifiedFlagO; 

s y ' 

3 ; ; 

voiSlcSlobCtrl::Insert(long value, long index) 

II TODO: j^dd your dispatch handler code here 
LPBYTt source; 
LPBYTE dest; 
LONS size; 
long datacount; 

// exit if index is beyond range or Slob isnt setup 
if (ISIobPtr) return; 

datacount = eiobPtr->diml * SlobPtr->dim2 * SiobPtr->eltsize; 
if (((index*61obPtr->ettsi2e) datacount) 1 1 (index < 0)) 
return; 

if ((SlobPtr) ii !ClpView->ReadOnly)) { 

source - &iobPtr->datQ.Byte + index*SlobPtr->eltsi2e; 
dest - source filobPtr->eltsize; 
size = datacount - (index+l)*&lobPtr->eltsize; 

//move data up (memmove handles overlapping memory regions) 
memmove(dest^ource^ize); 



//insert new data element 



switch (&lobPtr->eltsi2c) 
{ 

case 4: .GlobPtr->data.Long [index] = value; 
- break;* 

. .case 2: eiobPtr->datQ.Sht>rt[index]= (sbort)value:^ 

default: eiobPtr->dataByte[index] = (SyjE) value; 
break 

. , . . . V :• 

. < •// notify^fohtixJi? on Jiff if/cbange - ;V * - 

'* '^'VV/if(eiobPtr->hot^^^ *• 

5eTidNotify(&lobPtr,lpView,IDVALUE,0): 

} 

} 

BSlk CGlobCtr]::&etFullPathO 
String strRcsult; 

Hf TODO: Add your property handler here 
^Result - m_FullPath; 
^urn strfecsuit.AllocSysStringO: 

m 

voi3k:SlobCtrl::SetFullPath(LJ'CTSTR IpszNJewValue) 
{ 

Q TODO: Add your property handler here 
SetModifiedFlagO; 

} m 

i. 

a J 

lorljC&iobCtrl::Resi2eMMF(long NewSize) 

■{ 

// TODO: Add your dispatch handler code here 
return MMFRemapView(NewSi2e); 

} 

long CSlobCtr!::SyncFileSi2eO 
{ 

if (m_FileSi2e != lpView->5i2e) { 

// mapviews are not syncronized so remap 
MMFRemapView(lpView->Si2e); 

} 

return 0; 

} 

void LogErrorString(CString errstr) 
{ 

if (!L05_ERR0RS) return; 
FILE'^f; 



f = f openC"C:\\51ob=rr.Log","o"); 



fwritc(errstrA.errstr.&etLengthO,f); 
fclose(f); 

) 

voidCGlobCtrl-SendNotify)^^ / ' ' ' • ' • * . ' * " 

{ ' 

// TODO: Add your dispatch handler code here 

; jnt.j,map!l>)dex^>itl^ ,y ^ / v. '/ .*;;'''; "-.v/ .^V - T"'- - • • " 

in'f.resuTfs;.; . • " ■ . - [ i \ : ' " ' 

HWNDmHwnd; ' - 
^SlobMsg msg; 
long* tcmpmsg; 
long SloblD; 

// set up message to send for notify 

trlsgJ^ropID = Notif yID; 

j||sg.Value= Value; 

f&mpmsg = (long*)&msg: 

,j|obID = (long)5iobPtr - (long)lp\/iew; 

pHwnd = SetSaf eHwndQ: 
,if (SiobPtr) { 

U for (mapIndex=0;mapIndex<lpView->nNotifyMaps;mapIndex++) { 
1= for (bitlndex = O;bitIndex<3Z;bitIndex-H0 { 
fU i = mapIndex*3Z+bitIndex; 

if ((eetNotifyUst(mapIndex) 4 (l«bitlnde>0) iA (mHwnd != lpView->NotifyHandle[i])) { 
P results = ::PostMessageClpView->NotifyHandle[i],USER_VALUECHANSED*tempr^ 

- ' if (!resu!ts) // if the handle is invalid then remove it from the list 
RemoveNotifyCeiobPtr JpView->NotifyHandle[i]): 

} 

} 

} 

} 

} 

BOOL CSiobCtrl::&etAutoSendNotifyO 
{ 

// TODO: Add your property handler here 
return m_AutoNotify: 

} 

void C&iobCtrl::5etAuto5endNotify(BOOL bNewValue) 
{ 

// I ODO: Add your property handler here 
m_AutoNotify = bNewVclue; 

SetModifiedFlagO: 

} 




BOOL ceiobCtrl::On5etExtcnt(LPSIZEL IpSizcL) 
{ 

. // TODO: Add your specialized code here and/or coll the base class 
• /return false; 7/COjeCoritroj".OhSEtExtent^^^ • 



.lpng£GtebCtrl::GertslHan^^^ . \t -j- • • " ;r - 

//.TODO: Add your property handier here' 

return m_MaxLinks: 
} ' 

void CSlobCtrl::SetNHandlesClon3 nNewValue) 

{ £i 

/4ITODO: Add your property handler here 
slft-ModifiedFlagO; 

lonJ-^eiobCtrlr.eetNNotifyMapsO 

M{TObO: Add your property handler here 
ifl|lpView) 

n return ipView->nNotif yMaps; 

if! 

niturn 0; 

} C 

void CSlobCtrliiSetNNotifyMapsClong nNewValue) 

{ ' 

// TODO: Add your property handler here 

SetModifiedFlagO: 

} 

BOOL CSIobCtrl::FormatMMF(ion3 Motif yUmit) 
{ 

// TODO: Add your dispatch handler code here 
int K 

if (IpView) { 

if (lpView->Ref Count > 1) { 

ThrowError(CTL_E.PER/AISSIONDENIED/'Sharing violation. Can not reformat MMF."); 
return false: 

} 
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if (NotifyUmit < 32) Notif yLimit r 32: 
X = (NotifyUmit-l)/32 + 1; 
lpView->nNotifyA\aps = x; 
m_MaxLinks = x*32; 

; nj^FifeSize -»^= (ro_lA^axLinks*s^zepf{long)-^ 4095);' //cole hew size of file . 
nuFileSize &= --4095; // make size o multiple of 4096 

MMFEroscQ; ... 
- :\ if (MMFGrfecrt-eO ==.P ' . - /- - :. 

return FALSE; 

} ' ^ ■ ■ 

long CSlobCtrl::&et&lobSi2cO 

{ 

// TODO: Add your property handler here 

i#|eiobPtr) return eiDbPtr->si2e: 

01 

riStum sizeof (tSlob); 

ii H 

VDii]P&lobCtrl::5etSlob5izc(long nNewVolue) 
Q TODO: Add your property handler here 
gitModifiedFlagO; 

lonf'CSlofaCtri::&etRefCountO 

{ •■ ■ 

// TODO: Add your property handler here 
if (IpView) return ipView->Ref Count- 
return 0; 

} 

void CSIobCtrl::Sc+Ref Count(long riNewValue) 

{ 

// TODO: Add your property handier here 
SetModifiedFlagO; 

} 

BSTPl CeiobCtrl::&etVersionO 

{ 

CString strResuit; 

// TODO: Add your property handler here 

StrResuit = VERSION; 

return strResult.AllocSysStj'ingO; 

} 



void C61obCtrl::SetVersionCLPrrSTR IpszNewValue) 
{ 

// TODO: Add your property handler here 

. SetModifiedFlagO; ■ -• ' ■ " 

} ■■ 

BSTR CeiobCtrlr.SetUOMO 

CString strJlesult; ■ ■ ' ' ' " " .' 
// TODO: Add your property handler here 
tSlob* temp; 

if ((eiobPtr) d& (eiobPtr->UOM) 44 IpViewX 
temp = .(t&lob*X(«n+)lpVicw * eiobPtr->UOM); 
strResult = temp->name; 

X«lsc{ 
^flstrResult = 

rljturn strResult.AllocSysStringO' 

yl 

voicffc&lobCtrl::5ctUOM(LPCT5TT^ IpszNewValue) 

/jATOt^O: Add your property handler here 
ijTt uom; 

iji 

fflfm = MMFfietSloblx(lpszNewValue); 
lf^\{&\ob?tr) ebbPtr->UOM = uom; 
SetModifiedFiagO: 



BSTR CeiobCtrl::ectLinkO 

■{ 

CString strResult; 

// TODO: Add your property handler here 
tSlob"* temp; 

if ((SlobPtr) && (SiobPtr->link) && IpViewX 
temp = (t5lob*)((int)lpView + GlobPtr->link); 
strResult = temp->name; 

} else { 
strftesuit = 

} 

return strResult.AliocSysStringO; 

} 



void CSIobCtrl::SetLink(LPCT5TR IpszNewValue) 




{ 

// TODO: Add your property handler here 
int link; 

est ring new vol; 

: if <ipszMewValue ]=*NULL) \ 
newval = IpszNewValue; 
else 

newval = 

' linRrMMFScteiobixCnevvval); - ' \. • " • ' ' V 
if (SlobPtr) ^obPtr->link = link; 
SetModifiedrbgO- 

} 

long CGIobCtrl::IndexOf (LPCTSTR. SlobName) 
{ 

//TODO: Add your dispatch handler code here 
long iindex; 

iMex = MAftF&et&ioblxf&iobNamej; 
ifi (Hndex) index = -1; 
iTreturn index ; 

3 m 

BOOL CSlobCtrl::GetNotif yOnChange(LPCTSTR SlobName) 

{ 0 

# TODO: Add your property handler here 

jtfelob* SPtr; 

jljwNDhWind; 

:lonq index; 

long maplndex; 

long bitlndex; 

BOOL ret; 

BYTE* temp; 

long* MapPtr; 

hWind = SetSaf eHwndO; 
ret ' false; 

if (ilpView) return false; 

if (SlobName[0] == •\0'){ 

SPtr = SlobPtr; 
} else { 

SPtr = (tSiob*)MMr6etSlobPtr(SlobNJame); 

} 

if (SPtr (Sti SPtr->ptrMap) { 
index = FindHandle(hWind); 
if (index != -1) { 

maplndex - index/32; 
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bitlndex = index - mapIndex*3Z; 
temp = (ByTE*)SPtr + ePtr->ptrMap; 
MapPtr = (long*)tcmp + maplndex; 
if MapPtr & (l«bitlndex)) ret = true; 

• ) 

} - ■ • 
return ret: 

} 

void ceiobCtrl::5etNotifyOrtChange(LP.CTSTR SlobNiamc, BOOL.bNcwValue) 

{ ■ 

// TODO: Add your property handler here 

BOOL ret; 
.HWND hWind; 
teiob* ePtr: 

ii(eiobNameIO]== *N0'){ 
I SPtr = elobPtr; 

.^fe!se{ - 
^ ePtr = (tSlob*)MA\FeetSlobPtr(GlobName): 

i 

i?(SPtr){ 

CSingleLock LockMe(6lobLock); 

11] if GAmbientUserModeO) { 

ill ThrowError(CTL^EJ*ERA^ISSIONDEh4lED,"This property can only be set at runtin^e.",0); 
C) return; 

LockMe.LockO: // waits infinitely for resource to be available. 

// can use a timeout value as a parameter (ms) if desired. 

hWind = SetSofeHwndQ: 

if (bNewVaiue) { 

ret = AddNotify(SPrr,hWind); 
■} else{ 

ret = RemoveNotifyX(&Ptr>iWind); 

3 

LockMe.UnlockO; 

} 



SetModifiedrlagO' 

} 



long C51obCtrl::5etVisibleO 
{ 



/I A 




HRES'JLT hresult; 

IDispatch FAR* pdisp = (IDispatch FAR*)NULL; 
DISPID dispid; 

OLECHAR FAR" szVisibIc = ^'Visible"; 
OLECHAR FAR* szTabStop = L"TabStop"; 
DISPP ARAMS disparams; 
DISPID MyDispid = DISPID.PROPERTYPUT; . 
VARIANTARS tnyargEl]; 



disparoms.rgvarg = myarg; 
disparams.rgvarg[0].vt = VT_BOOL; 

disparams.rgvarg[0].boolVal = FALSE; //MFC help says this fieldname is actuaiy "bool"... yea right! 
disparams.rgdispidNamedAr^s = AMyDispid; 
disporoms.cArgs = 1; _ 
disparoms.cNamedArgs = 1; 

jj|isp = GetExtendedContpolO; 

fiesult = DISP_E_UNKN0WNINTERFACE- 

|(pdisp){ 

7^ //set visible to false 

rrl hresult = pdisp->GetIDsOf Namcs(IID_NULL^zVisibleAtOCALE_USER_DEFAULT,&dispid); 

i|1 if (hresult = S_0<) { 

hresult = pdisp->Invoke(dispid JID_NULLi.OCALE_USER_DEFAULT,DISPATCH_PROPERTypUT, 

Adisparams;^ULLMUa>lULL); 

m 

4' //set TabStop to false 

ill hresult = pdisp->SetIDsOf NamesCnD_NULL.(5cSzTabStopAi.OCALE_USER_DEFAULT,4dispid); 
W1 if (hresult ==S_OK){ 

p hresult = pdisp->Invoke(dispid JID_NULi.J,OCALE_USER_DEFAULT,DISPATCH_PROPERTyPUT, 
^" • 4disparams>lULL;^ULL;vJ'JLL); • 

} 

pdisp->Relecsc(); 

} 

return (long)hresult; 

} 
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// Copyright 1998, 1999 5PX Corporation 

#if ldefined(AFX_SLOE_H 5r20D2DC_7BBC_llDI_9A9B_020701045A6B INCLUDEDJ 

#definc AFX_5LOB_H 5F20D2DC_78BC.11D1_9A9B_020701045A6B INCLUDED. 

#if _M5C_.VER>=1000 

#pragmQ once* • V ■''.■"'*'.•.! ' r ^ *; ' " y 

#cndif >/ _M5C_VER >= 1000 ' /" 

// eiob.h : main header file for SLOB.DLL 

;'#if'kiefinea(*::J/^C^ ; -^"'^ • 

#crror include" 'afxctl.h' before including this file 
#endif 

#include "resource-h." // main symbols 

///////J///////////////////////////////////////////////////////////////////// 
// C^lobApp : See Slob.cpp for implementation. 

#diiine Glob_NAME_LENGTH 16 

#d^ine DEF.NOTTrYMAPS 8 

#dkfine NOTIFyMASK ■ ■ -1 

#d|!ine OK 0 

#dpjine ERR_CANT_CREATE_FILE_MAPPINS -2 

#define ERR_CANT_MAP_VIEW_OF_FILE -1 

^id,sfine ERR_INVALID_Glob_REFERENCE -3 

#d||ine ERR_INVALIDFILENAME 999 

#d|fine MEtA_AllOC .. 4096 

#d|fine iMAX_STRINS 256 

#dffine MAAr_TNTcRCOM_MMF _TtXT("MMF_INTERCOM") 



// FLAG VALUES TO USE IN MMFSETSlobPARAAA AND MMFSETSIobPARAM 
// USE ACTUAL BYTE OrrSETS FOR FASTER ACCESS , 

#define eiob_DIM2 4 

#define Slob_DIMi 6 

#d£fine Siob_ELTSIZE B 

#define &bb_TyPE 10 

#def ine Slob.PARAM 12 // addl data 

^define Slob^DATASIZE 14 //addl 

typedef struct 

; 

long Size; 
int FirstSlob; 
int NextAvai!; 

int Readonly; // is MMF Readonly right now? 

int Ref Count; 

int nNotifyMaps; 

int Dcta[ 10 j; // spare 

HWND Notifyriandle[03; // hwnd for windows to notify of changes 
} tContro!; 



1 



typedef struct 

{ 

int size; 

BYTc namc[ Slob.NAME.LENGTH I 
short dim2; // 2nd dimension 
short diml; // 1st dimension 
short eltsize; // byte size of each arroy element 
short type; // type of array clement 
short extra* // addl data. Waveforms use for Actual Length, etc. 
short command; .// command to the device 
short status; // status from the device 
short datasize; // add! 
long UOAfc // unit of measure link, if any 
long link; // offset of parameter Slob, if any 

//long notifymap[DEF_NOTIFyMAPS]; // bitmap used to indicate who to notify if changed 

long ptrMap; 

union 

b 

i|| long Long[0]; 
ill short ShortfOi 
=|i BYTE BytelO]; 
frdata; 
)-tiiob; 

J as 

typ¥def struct 

'short PropID; 
l|ort Value; 
}t^obMsg; 

class CSlobApp : public COleControlModulc 

public: 

BOOLInitlnstanceO; 
int Exitlr^anceQ; 

3; 

extern const S JID CDECL _tlid; 
extern const WORD _wVer Major; 
extern cor^ WORD _wVerMinor; 

//{{AFX_INSERT.LOCATION}} 

// Microsoft Developer Studio will insert additional declarations immediately before the previous line. 
#endif // !dcf ined(AFX_SLOB_H_5F20D2DC_788C_llDl_9A9B_020701045A6B_INCLUDED) 
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// Copyright 1998, 1999 SPX Corporation 

// GlobPpg.cpp • Implementation of the CSlobPropPage property page class. 
#inciude."stdafx.h" . . ' 

#indude "&lob.h" ... . ■ 

■#include"etoPp9.h"-- •. • • • • .-, • ' ..' • •-• 

#if def _t)EBUe 

#def ine new DEBUG_NEW 

#undEii.THI5^FILE--.-. -• • •• ^ ■ 

■•^atic'diar tHisJ=lL-E[] ^ _iFTLEij: ' ' ••' ' * " • '•■ ■•- •■■ ' • ■"" ' ■ ■■ ' ■ 
#endif ' .' • " 



IMPLEMENT_DyNCREATE(CelobPr6pPage,C01ePropertyPage) 

//;!'//////////////////////////////////////////////////////////////////////// 

// M^essage map 

Ri 

BEilN_MESSASE_MAP(CGiobProprage, COieProperiyPage) 
iri{{AFX_M3e_WkAP(CeiobPrdpPage)^ ■ 
iJl NOTE - ClossWizord will odd and remove message map entries 
2i DO NOT EDIT whai you see in these blocks of generated code ! 
/7}}AFX_MS5_MAP 

EH|>_MESSAeE_A/lAPO 

/imjininiiiNJjjJiNiJn/iJUNijjiiiNHNiJJiiiNNinNun/jjjiiniii/ 

//Shitialize class factory and guid 

IMPLEMENT_OLECftEATE_EX(CSlobPropPage/'SLOB.SlobPropPa9£.r', 

0x5f 20d2d7, 0x788c, Oxlldl, Ox9a, Ox9b, 0x2, 0x7, 0x1, 0x4, Oxdg, Ox6b) 

////////////////////////////////////////////y//////////////////////////////// 

// C&lobPropPa5e::C&lobPropPa9eFGctory::Updateftegistry - 
// Adds or removes system registry entries for CSlobPropPage 

BOOL CSlobPropPage::CGlobPropPa9eractory::UpdateRegistry(BOOL bftegister) 
{ 

if (bftegister) 

return Afx01efteg!SterProperty?aQeClass(AfxSetInstanceHandleO, 
m_clsid, ID5_&L0B_PPe); 

else 

return AfxOleUnregisterClciss(m_clsid, NULL); 

} 



///////////////////////////////////////////////////////////////////////////// 
// CSIobPropPage::CSlobPropPage - Constructor 




CSlobPropPoge-'-CSIobPropPageO • 

COlcPropcrtyPagcCIDD, rDS_&LOB_PP6_CAPTTON) 

{ 

//{{AFX.DATA.rNITCCGlobPropPage) 

// NOTE: ClassWizard will add member initialization here 

// DO NOT EDIT what you see in these blocks of generated code j 

//1}AFX.DATAJNIT 

} 



/n/j/nuiinuinji/i//nuitu/iuiunt/ufii/inuu/nj//fu/nin/ni/ 

// C&lobPropPage::DoDataExchange - Moves date between page and properties 
void ceiobPropPage::DoDataExchar^c(CDataExchange* pDX) 
//{{AFX„DATA_MAP(CSlobPropPage) 

// NOT?: ClossWizord will add DDP, DDX, and DDV calls here 

Id DO NOT EDIT what you see in these blocks of generated code ! 

p}}AF>CDATA_MAP 

,||>P_.PostProcessing(pDX); 

} 1 

"T" 

//p///////////////////////////////////////^ 

// £|51obPropPage m^soQz handlers 

CI 

rti 
111 
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// Copyright 1998, 1999 SPX Corporation 

#if !defined(AFX_eLOBCTL_H_5F20D2E4_788C_llDl_9A9B_020701M5A6B ^INCLUDEDJ 

#def ine AFX_SLOBCU_H 5F20b2E4_78BC_llDl_9A9B_020701045A6B ^INCLUDED. , 

#if _MSC_VER >= 1000 

•;#prqgma once" ■ : • " ' .- ■" ' ■ ■■ ' ' ."' . :. 

#cndif // _MSC_V€R >= 1000 " "'. ' ' 

// eJobCtl.h : Declaration of the CSIobCtrl ActiveX Control class. 




//.CCIobCtrl : See SlobCtl.cpp for implementation, 
•^include <af xmt.h> 
#include <memory.h> 
^include <string.h> 



#def ine IDVALUE 1 
#d£f ine IDSTATUS 2 
#dsfine IDCOMMAND 3 
#d'^iine VERSION "1.2i" 

cIqs^ ceiobCtrl : public COIeControl ' 

^ m 

E>|aARB.DyNCREATE(CSlobCtrI) 

/y Constructor 

pubjfc: . 

• ^^lobCtrlQ;- 

m 

// p^crrides 

77 Ciass Wizard Generated virtual function overrides 

//{{AFX_VIRT\jAL(C&lobCtrI) 

public: 

virtual void Onbraw(CbC pdc, const CRecti rcBounds, const CRect& rclnvalid); 

virtual void DoPropExchanpeCCPropExchange* pPX); 

virtual void OnResetStateQ; 

virtual void OnFinalRelecseQ; 

virtual BOOL OnSetExtentCLPSIZEL IpSizeL); 

//}}AFX_VIRTUAL 

// Implementation 
protected: 
-CGIobCtrlO; 

BEGIN.OLEFACTORy(CSiobCtrO 

virtual BOOL VerifyUserLicenseQ; 

virtual BOOL &etLicense»Cey(DW0RD,B5TR FAR*); 
END_OLEFACTORy(CSIobCtrl) 

DECLARE_OLETYPELIB(C&iobCtrl) // SetTypelnf o 
DECLARE_PROPPA&ElDS(CSiobCtrl) // Property page IDs 
DECLARE_OLECUTyPE(C51obCtrI) // Type name and misc status 




// Message maps 

. //{{AFX_M5S(CeiobCtrl) 
• ■//}>AF>£LM5& - > * • 

. DECLARE_MESSASE.MAPO 

// Dispatch maps 

//{{AFX.DI5PATCH(CSlobClTl) 
af x_msg long SetSlpblndexQ; 
afx^nisg void:5ct&iobIndp^(lqng-aNewValu^^^ . . 
af '^Jtiisghng'-G^i^^^ " "* ; ; 

af x_msg void SetDimlSizeflong nNewValue); 
af x_msg long SetDimZSizeO; 
afx_msg void 5etDim2Si2e(long nNcwValue); 
afx_msg long GctElementSlzeO: 
afx_msg void 5etElcmcntSizc(ldng nNewVaiue); 
af x_msg long SetTypcQ; 
afic^msg void SctTypcClong nNewValue); 
dfk_msg long GetExtraQ; 
d|k_msg void SetExtra(long nNewValue); 
c#x_msg long SetDotaSizeQ; . 
oS^—msg Void 5etDdtaSi2c(iong h'NewVaiue); 
(ffl<_msg B5TR fietSlobNameO; 
ll^msg void SeteiobName(LPCT5TR IpszNew Value); 
qfx_msg long SetFileSizeQ; 
#x_msg void SetRleSizeflong nNewValue); 
c|Jx_msg B5TR SetRleNameQ; 
?ftx_:msg void 5etFileName(LPCTSTR IpszNcw Value); 
c#c_msg long SetStatusQ; 
(g|X_msg void SetStatus(long nNewValue); 
Iffx^msg long SetCommandQ.* 
nfx_msg void 5etCommand(long nNewValue); 
af x_msg long SetSlobPtrQ; 
af x_msg void SetSiobPtr(long nNewValue); 
'afx_msg long GetDotaPtrQ; 
af x_msg void Set DataPtr(iong nNewValue); 
cf x_msg long SctAvailSizeC); 
afx_msg void 5etAvai!5i2e(iong nNewValue); 
af x_msg BOOL &etReadOniyMMF0; 
afx_msg void 5etRead0niyMMF(B00L bNewValue); 
of x_nisg BOOL SetNotifyQ; 
afx_msg void 5etNotify(BOOL bNewValue); 
af x_msg short SetByteValueQ; 
cfx_msg void 5etByteValuc(short nNewValue); 
af x_msg long SetLValueQ; 
afx_msg void 5etLValue(long nNewValue); 
af x_msg short GetlValueO: 
cf x_msg void 5etIValue(short nNewValue); 
of x_msg BSTk SetStrValueQ; 
cf x_msg void Set5trValue(LPCTSTR IpszNewValue); 
af x_msg BSTR SetFullPathQ; 
af x_msg void 5etFu!IPcth(LPCTSTR IpszNewValue); 




afx_msg BOOL &ct AutoSendNotifyQ; 

afx_msg void SetAuto5cndNotify(BOOL bNewValue); 

of x_msg long GctMHondlesQ; 

' afx_,msg void 'SetNHdndlcs^bng .nNewValue);- . • . • • 

af x_msg long fietNNotifyMapsO; 
; af^^msg vold^ctNNotif^ ' . ^' . '■• • ■ 

af x_msg long GetSlob'SizcQ; . . * ' 

afxjmsg void SctGbb5i2c(lqng nNcwValue); 

afx_msg long SetRef CountQ; 
.. af X;^msgvpid Setftef CpuntQdng nNe^wValue); ^ y • " - . *. 

"afx_:hisg PSIR'&c^ v •■. • . . ' • - 

af x_n\sg void 5etVersion(LPCT5TR IpszNewValuc); 

of x_msg B5TR SetUbMO: 

afx_msg void SetUOMCLPCTSTR ipszNewValue): 

of x_msg BSTR SetUnkQ: 

afx_msg void SetLink(LPCTSTR IpszNewValue); 

afx^msg long MMFCloseQ: 

®x_msg long MMFAdd&lob(LPCTSTT^ SlobName, long Unitslndex, long DimZSize, long DimlSize, long ElementStze, long 
Type, long Extra); 

SI'x.msg long MMFAddSlobEx(LPCTSTR SlobName, LPCTSTR UnitsNan^e, long Dim25ize, long DimlSize, long EiementSize, I 
onf^Type, long Extra); 
i^x_jrisg BOOL SctFirstiSldbQ; ' 
!i|^x_msg BOOL GetNextSlobQ; 
J&f x_msg void EroseQ; 

atx_msg void MMFEroseQ; 

Jaf x_msg void InsertClong value, long index); 

gFx_msg long ResizeMMF(long NewSize); 

|cifx_msg void 5endNotifyX(short NotifylD, short Value); . 

laf x_msg BOOL FormatMMFCIong NotifyLimit); 

igf x_msg long IndexOf (LPCTSTR GlobName); 

^£^x_msg long &etValue{long Dim2, long Dimi); 

afx_msg void 5etValue(long Dim2/long Dimi, long nNewValue); 

afx_msg long &etNotifyHandle(short index); 

afx_msg void 5etNotifyHandle(short index, long nNewValue); 

afx_msg short &etAbValue(long index); 

af x_msg void SetAbValue(long index, short nNewValue); 

ofx„msQ long GetAlValueClong index); 

afx_msg void 5etAlValue(iong index, long nNewValue); 

af x_msg short &etAIValue(long index); 

afx_msg void SetAiValue(long index, short nNewValue); 

afx_msg long £etValue5D(long n); 

afx_msg void 5etValue5D(long n, long nNewValue); 

af x_msg long &etNotifyList(long index); 

afx_msg void 5etNotifyList(long index, long nNewValue); 

af x^msg BOOL &etNotifyOnChange(LPCTSTR SlobName); 

cfx_msg void SetNotifyOnChanQe(LPCTSTR SlobName, BOOL bNewValue); 

//}}ArX.DI5PATCH 

DECLARE_DISPATCH_MAPO 

cfx_msg void AboutBoxQ; 

of x_msg long OnValueChanged(UINTi,ONS); 




// Event maps 

//{{AFX_EVENT(CGlobCtrI) 

void FireChangcCshort PropID, short Value, long SendID) 

{FireEvent(eventidChan3C,EVENT_PARAM(VTS_I2- VTSJLZ VTS_I4), PropID, Value, SendID);} 

. . //})Af=>(_EVENT ...... . .'. ... . 

• : :DEbL>vRE:^EycNT_MAPO. ■ ..■■■■: \^y--'^ r ■■ : • . ; ■ " 

// Dispatch and event IDs 

public; \ . . • • 

: cnum \- . ' ' :\. ^ ^- - - " - * 

■/''v)W^J>^j^i<^ ■■ -V • 

dispid&lobIndcx= lU • ■ . 

dispidDimlSize = ZL, 
dispidDimZSize = 3L, 
dtspidElementSize = 4L, 
dispidType = 5L, 
dispidExtro = 6L, 
dispidDatcSize = 7L, 
lii^pidSlobName = BU 
dIspidFileSize = 9L, 
fepidFileName ~ lOL, 
cfispidStatus = UL/ 
dJspidCommand = 12L, 
|ispidGlobPtr = 13L. 
lipidDataPtr = 14L, 
^ispidAvailSize = 15L, 
CRSpidReadOniyMMF = 16L. 
l^pidNotif y = 17U 
?|^pidValueB = IBU 
&pidValue32 = 19L, 
SfepidValuel6 = 20L. 
Ili'spidStrValue = 21L, 
dispidPullPcth = 22L, 
dispidAutoSendNotify = 23L, 
dispidNHandies = 24L, 
dispidNNotifyMaps = 25L, 
dispidfilobSize = 26L, 

dtsptdRcf Count = 27L, ' ' . 

dispidVersion = 28L, 

dispidUOM = 29L 

dispidUnk = 301, 

dispidValue = 43L, 

dispidCicseMMF = 31L, 

disptdAddNew = 32L, 

dispidAddNewEx = 33L, 

dispid&etFirstSlob = 34L, 

dispid&etNextSlob = 35L, 

dispidSrcse = 35L, 

dispidSrcseMMF ~ 37L, 

dispidNotifyHandle = 44L, 

dispidAVaiueE = 45L, 

dispidAValue32 = 46L. 
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dtspidAValuel6 = 
dispidValueSD = 4BL, 
dtspidlnscrt = 3BL, 
dispidRcsi2eA^MF = 39L, 
dispitfSendNotif y = 40U ■ - 
.:-dts^udNot{fy*Map = 49^^^^ . - . . * ' * - 
dispidFormcrtMMF = 41L, 
dispidlndexOf = 42L, 
dispidNotifyOnChangc = 50L, 
event idChangc = lL, *^ r^.*. j 

'3;'^ ■ ■ : ' ' • : ' 

private: 

teiob * SlobPtr; 
long datcsize; 
CString m_GlobName; 
BOOL TtuNotify; 
f;Mutex *eiobLock; 
^|^LItex *MMFLock; . 
I^tring m_FulIPath; 
istring m_FilcName; 

m_File5i2e; ^ 
fiANDLE f; 
ImNDLE hnieMapT; 
mNDLE s.hFileMap: 
^Control *lpView; 
UpBYTE ipLcst 
fool m.AutoNotify; 

fong .m_MaxLinks; 

m 

String 5P>LN0TIFy_MUTEX; 
^String SP>LMMF_MUTHX; 

//private member functions 
long MMFCreoteCvoid); 

long MMFOpen(LPCTSTR, long, LPCTSTR, long); 

long MMFRemapView( long ); 

long MMF&etSbbPtr(LPCT5TR); 

tSlob *MMFNextAvailSlob( long ); 

tSlob *MMFFirstSlobO; 

void MMFErcse&lob( tSlob *); 

long MMF&et51obIx(LPCT5TR); 

void MMFftesetSlobs(void); 

BOOL AddNotify(tSlob*,HWND); 

BOOL RemoveNotify(tSiob'^,HWND); 

int FindHandle(HWND); 

void SendNotify(tSlDb*, tControt^, short, short); 

void MMFClear51obBits(long BitMap); 

long SyncFileSizeQ; 

void SetBitMap(tSlob* Jong index); 

BOOL ?^emoveNotifyX(tSlob* SlobPtr, HWND my.hWnd); 

long M/AFCIearSiobBit(t&lob* SPtrjong index); 
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BOOL NotifyListIsEmpty(t&lob "IpSlob); 
\oT\g SetVisibleQ; 

}; 

//{{AFX_INSERT_LOCATEON}} 

// Microsoft Developer Studio will insert additional declarations immediately before the previous line. 
#endif //!defined(AFX_SLOBrrL_H_5F20t>2E4_788C_llDl_9A9B_020701045A6B_INaUDED) 



// Copyright 1998, 1999 SPX Corporation 

// stdafxxpp ' source file that includes just the standard includes 

// stdafx.pch will be the pre-compiled header 

// stdafx.obj will contain the pre-compiled type information 
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// Copyright 199B. 1999 SRX Corporation 

#if ldefined(AFX_STt>AFX_:H__5F20D2DA_7BBC_llDl_9A9B_020701045A6B_INaUDEDJ 
#dcfineAFX_STDAFX_H_5F20D2DA_76BC_llDl_9A9B_020701045A6B_INCHJDED_ 

#if _A/ISC:_VER*=1000 _ 

.3#pragmd once - -- v • -.-r "v.- " V'; ''. . • . .-. *" - ;. 
#cndif //_M5C_VER>=lobO 

// stdafx.h : include file for standard system include files, 

/./ . or project specific include files that oreuscd fr^uentlY, . . • •■. = - .. . . . - . 

// . but are changed infrequently '''' * " * • V 'J ' • *. v-^- - - 

#def ine VC_EXTRALEAN J J Exclude rarely-used stuff from Windows headers 

#include <af xctl.h> J J MFC support for ActiveX Controls 

// Delete the two includes below 5f you do not wish to use the MFC 
y/;;^ database classes 

#if^ude <af xdb.h> // MFC datcbase classes 
#mclude <afxdao.h> J J MFC D AO database classes 

£ ' . . .. . ...... 

■ //{{AF>{_INSB^tJ.DCAlION}} ■ \ ' 
/yOMicrosoft Developer Studio .will insert additional declarations immediately before the previous line. 

#ehdif /y !def ined(AFX.5TDAFX_H_5F20D2DA_788C_llDl_9A9B„020701045A6B_INCLUDED J 
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// Copyright 1998, 1999 SPX Corporation 
//{{NO_DEPENDENCIES}} 

// Microsoft Developer Studio generated include file. 
// Used by Slobxc 
•// - 

.#de-fine.lbS:.SLbB; / ... . 1:- • 
#def ine It>D_lABbU1T60X_eLOB ' 1 ' 
#def ine IDB.SLOB 1 
#def ine IDI.ABOUTDLL 1 
#def ine IDS_eLOB_PPe' . 2 • .. 

■•#definc IDS_Si:OB^PP6_CAPTrOl^ ■ ' Z(SO'.- '." 
#def ine IDD_PftOPPASE_SLOB 200 

y/ Next default values for new objects 
// 

#ifdef APSTUDIO_INVOKED . 
#ifndef APSTUDIO_READONLy_syMBOLS 
#deifine_APS_NEXT_RESOURCE_VALUE 203 
#dljfine_APS_NEXT_COMMAND_VALUE 32768 
#c||fine_APS_NEXT_CON"niOL_VALUE 201 
#(^inc_APS_NEXT_syMED_VALUE 101 
#ei»dif ' 
#efidif 




// Copyright 1998, 1999 SPX Corporation 

#if !defined(AFX_eLOBPPe_H_5F20D2E6_7B8C_llDl_9A9B_02070l045A6B_INCLUDEDJ 
#dcfine AFX_GLOBPPS_H_5F20D2E6_78BC_11D1_9A9B_020701045a6B_INCLUDED_ 

#if _MSC_VER >= 1000 
.#prQgmo"once. 

#cndif // _MSC_VER >= 1000 

// SlobPpg.h : Declaration of the CGlobPropPage property page class. 

//////////////////////////////////////////////////////////////////////////// 
// CGlobPropPage ; See &lobPpg,cpp.cpp for implementation. 

class C&lobPropPage : public COIePropertyPage 

{ ■ 

DECURE_&yNCREATE(CeiobPropPa3c') 
DECLARE_OLECREATE_EX(ceiobPropPage) 

Q 

//,&nstructor 
• l^lobPropPageO; 

//iSialog Data 

UJ'{{AFX_DATA(C(5lobPropPQgc) 
ehum { IDD = rDD_PROPPA&E_GLOB }; 

// NOTE - Class Wizard will add dato members here. 

IJ DO NOT EDIT what you see in these blocks of generated code ! 

!i:h}AF>LDAT>A 

ill 

//ji|nplementation 
prpfected: 

virtual void DoData5xchanae(CDataExchange* pDX); // DDX/DDV support 

// Message maps 
protected: 

//{{AFX_MS&(CGIobPropPage) 

// NOTE - ClcssWizard will add and remove member functions here, 
7/ . DO ts]OT EDIT what you see in these bioci^ of generated code ! 
//}}AFX_M5S 

DECLARE_MES5ASE_MAP0 

}; 

//{{AFX_IN5ERT_LOCATrON}} 

// Microsoft Developer Studio will insert additional declarations immediately before the previous line. 
#endif // !defined(AFX_SLOBPPe_H 5F20D2E6_788C_11D1_9A9B_020701M5A6B INCLUDED) 
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// Copyri9ht 1998, 1999 SPX Corporation 

// &lob.cpp : Implementation of CGlobApp and DLL registration. 

#inciude "stdaf x.h" 
#include "Glob.h" 

#ifdef _DEBUS 

#def ine new DEBUe_NEW 

#undef THIS.FILE 

static char THIS„FILEQ = FILE ; 

#endif 



CSlobApp NEAR theApp; 

const eUID CDECL BASED.CODE _tlid = 

{ 0x5f 20d2d3, 0x788c, OxUdl, { Ox9q, Ox9b, 0x2, 0x7, 0x1, 0x4, Ox5a, Ox6b } }; 
canst WORD _wVerMajor = 1; 
cMsi WORD _wVerMinor = 0; 

fbjjinijniiiiniiii/uiiniuiniiJjiiii^ 

/J^CSlobApp:;InitInstance - DLL initialization 

ill 

BQOL C&lobApp:;InitInstanccO 
t^BOOL binit =' C01eControlModule::InitInstanceO; 

..la 

ftff (bInit) 

i 

!~- Jl TODO: Add your own module initialization code liere. 

return bInit; 

} 

/////////////////////////////////////y///////////////^ 

// CSiobApp::ExitInstance - DLL termination 

int CSlobApp-.ExitlnstanceO 

{ 

// TODO: Add your own module termination code here, 
return COIeControlModule::ExitInstanceO; 

) 



///////////////////////////////////////////////////////////////////////////// 

// DIIRcgisterSepver - Adds entries to the system registry 
STDAPI DllftegisterServer(void) 
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{ 

AFX_MANAeE_STATELafxModuleAddrThis); 

if (! Af xOleRegistcrTypcLib(Af xSetlnstanceHandlcO. -tlid)) 
return RcsultFromScodc(SELFREG_E.TYPELIB); 

if (!COleObjcctFactoryEx::UpdateRcgistryAll(TRUE)) 
return RcsultFrom5codc(SELFREe_E_CLASS); 

return NOERROR; 

} 

iiiiiijiiiiiiijiiiiiiiiiiiiiiiiiuiiiiiiiiiniiiiiiiiiiiii^ 

II DllUnregisterServer - Removes entries from the system registry 

STDAPI DllUnregisterServer(void) 

{ ... 

HF)^ hliAm&E STATELofxModuleAddrThis); 

.'If (!Af xOleUnregisterTypcLibL't'lid, _wVcrViojor, _wVerAAinor)) 
il: return ResultFromScodc(SELFREe_E_T/PELIB); 

H| 

5f (!COleObjectFactoryEx::UpdateRcgistryAll(FALSE)) 
return ResultFrom5code(SELFRE^_CLASS); 

iSeturn NOERROR; 

fll 
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: Copyright 199B, 1999 SPX Corporation 

; Slob.dcf : Declares the module parameters. 

LIBRARY "6L0B.0CX" 

EXPORTS 

DllCanUnloadNow ©1 PRIVATE 
DlieetClassObject ©2 PRIVATE 
DllRegisterServer ©3 PRIVATE 
DllUnregisterServer ©4 PRIVATE 



til 

m 
m 
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// Copyright 1998, 1999 SPX Corporation 

// Glob,odl : type library source for ActiveX Control project. 

// This file will be processed by the Make Type Library (mktyplib) tool to 
// produce the type library (Slob.tib) that will become a resource in 
// Slob.ocx. 

#include <olectLh> 
#include <idispids.h> 

[ uuid(5F20D2D3-788C-llDl-9A9B-020701045A6B), vcrsion(l.O), 

heipfile("&lob.hlp"), 

helpstringCeiob MMF Interface"), 

control ] 
library SLOBLib 
{ 

importlib(STDOLE_TLB); 
importlib(5TDTYPE_UB); 

^P/ Primary dispatch interface for C&lobCtrl 

: ;f uuid(5F20D2D4-7BBC-llDl-9A9B-020701045A6B), 
t'helpstring("Dispatch interface for Slob Control"), hidden J 
^'dispinterf ace _DSlob 

^ properties: 

ri // NOTE - ClassWizard will maintain property information here. 

£ II Use extreme caution when editing this section. 

m //{{AFX_ODL_PROP(C6lobCtrI) 

lii Iid(bISPIt>_HWND)] OLE_HANDLE hWnd; 

CI .[id(l)] long Globlndcjc; 

1=^ Tid(2)3 long DimlSize; 

[id(3)] long DimSSize; 

Iid(4)] long ElementSize; 

[id(5)] long Type; 

[id(6)] long Extra; 

[id(7)] long DataSize; 

[id(8)] BSTl^ SlobNamc; 

[id(9)] long FileSize; 

[id(lO)] B5T1? RleName; 

[id(ll)] long Status; 

[id{12)] long Command; 

[id(13)] long SlobPtr; 

[id(14)] long DataPtr; 

[id(15)] long AvailSize; 

[id(16)3 boolean ReadOnlyMMF; 

[id(17)] boolean Notify; 

[id(lB)3 short ValueS; 

[id(19)] long Value32; 

[id(20)] short Valuel6; 

[id{21)3 BSTR StrValue; 

[id(22)3 BSTTi FullPath; 
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[id(23)] boolean AutoSendNotify; 
[id(24)] long nHandles; 
[id(25)] long nNotifyMaps; 
[id(26)] long SlobSize; 
[id(27)] long Ref Count; 
[id(2B)3 BSTR Version; 
[id(29)] BS-m UOM; 
[id(30)3 BSTR Link; 
//}}AFX^ODL_PROP 



methods: 

// NOTE - ClassWizard will maintain method information here. 
// Use extreme caution when editing this section. 
//{{AFX.ODL_METHOD(CSlobCtrl) 
[id(43)/propget] long Value(long Dim2, long Diml); 
[id(43)! propput] void Value(long Dim2, long Diml, long nNewValue); 



[iS^^^ SlobName, long Unitslndex, long Dim25i2e, long DimlSize, long ElementSize, bn 

^ t^'' MiT\ong AddNewExCBSTR SlobName, BSTR UnitsName, long Dim2Si2e. long DimlSize, long ElementSize. b 



n§^f"ype, long Extra); 

[id(34)] boolean SetrirstGlobQ; 
[id(35)] boolean SetNextSlobQ; 



[id(36)] void EroseO; 
[id(373] void EraseMA^FO; 
[id(44), propget] Jong Notif yHandle(short index); 
n [id(44)! propput] void NotifyHandle(short index, long nNewValue); 
J! [id(45), propget] short aValue8(long index); 
Rl [id(45X propput] void aValue8(long Index, short nNewValue); 
in Iid(46), propget] long aValue32(long index); 
Q [id(46), propput] void aValue32(long index, long nNewValue); 
[id(47), propget] short aValuel6Clong index); 
[id(47)! propput] void aValuel6(long index, short nNewValue); 
[id(48), propget] long ValueSD(long n); 
[id(48), propput] void ValueSDflong n, long nNewValue); 
[id(3B)] void Insert(long value, long index); 
Iid(39)] long ResizeAAMF(long NewSize); 
[id(40)] void SendNotify(long NotifylD, long Value); 
[id(49), propget] long NotifyMap(long index); 
[id(49)! propput] void NotifyMap(long index, long nNewValue); 
[id(41)] boolean FormatMMF(long NotifyUmit); 
[id(42)] long IndexOf (BSTR SlobName); 
[id(50) propget] boolean NotifyOnChange(B5TT^ SlobName); 
[id(50)! propput] void NotifyOnChange(B5TTi SlobName, boolean bNewVaiue); 
//}}AFX.ODL.METHOD 

[id(DISPID.AB0UTB0X)3 void AboutBoxQ; 

}; 



// Event dispatch interface for CSIobCtrl 
[uuid(5F20D2D5-788C-llDl-9A9B-020701045A6B), 
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helpstringrEvent intcrf oce for Slob Control^ ] 
dispintcrf Qce _D&lobEvents 
{ 

properties: 
J I Event interface has no properties 

methods: . 

// NOTE - ClossWizard will maintain event information here. 
// Use extreme caution when editing this section, 
//{{AFX_ODL.EVENT(ceiobCtrI) 

[id(l)] void ChangeCsliort PropID. short Value, long SendID); 
//}}AFX.ODL_EVENT 

}: • . 

// Class information for CSlobCtri 

I uuid(5F20D2D6-7BBC-llDl-9A9B-020701045A6B) Jicensed, 

helpstringCeiob Control"), control ] 
Moclass Slob 

1 

[default] dispinterf ace _JD&lob; 
^ Tdefault source] dispinterf ace _D&lobEvcnts; 

S 

m . ^ 

J//{{AFX_APPEND_ODL}} 
f^}AFX_APPEND_ODL.}} 

ill 
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// Copyright 1998, 1999 5PX Corporation 

// SlobCtl.cpp : Implementation of the CSlobCtrl ActiveX Control class. 



#include "stdafx.h" 
#include "Slob.h" 
#include "&lobCtl.h" 
#include "SlobPpg.h" 

^include "sys/typcs.h" // for file status buffep_stat 
#includc "sys/stat.h" // for _f stat file status call 



#if def _DEBUG 

#def ine new DEBUG.NEW 

#undef THIS_FILE 

static char THIS_FILE[] = _FrLE_; 

#endif 

#def ine MIN_FILESIZE 8192 . 
Sii^f ine L05_ERR0RS FALSE 

N§«JDLE myhWnd; 

H|(nE)LE ADhlnstance; 
ui^igned char bResFlag; 
Handle "laModules; 

inf *iQ&lobal; 
BSfTR saSlobd; 
Cftring reftemp; 

/Moot LineDebug - false; 

LPCTSTR m_Message = "msg&lobChange*'; 
//long BitUst[32]; 

// HELPER FUNCTION PROTOTYPES -RK 
C5tring &etName(C5tring); 
long Power(int); 

void LogError5tring(C5tring errstr); 

IMPLEMENT_DyNCREATE(CSIobCtrL COleControI) 

/////////////////////////////////////////////////////////////////// 
//Register for an external windows message 

UINT U5ER.VALUECHAN5ED = Register WindowMessage(m_Message); 

///////////////////////////////////////////////////////////////////////////// 
// K\^ssagt map 

BESIN_MESSA&E.MAP(CSlobCtrL COleControI) 
//{{AFX_MSe_MAP(CeiobCtrI) 
//}}AFX_MS5_MAP 
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ON_OLEVERB(AFX_IDS_VERB_PROPERTrES,OnPropcrtics) 
ON_REeiSTERED_MESSA&E{USER_VAUUECHANScD,OnVQlueChanQed) 

END_WiESSAeE_MAPO 



lllllllllllllllllllllllllllllllinilllllllllllllllllllllllllllll'lllll'l'"" 
// Dispatch map 

BEGIN_DISPATCH_MAP(CSlobCtrl, COlcControI) 
//{{AFX_DISPATCH_MAP(CSlobCtrl) 

DI5P_PftOPERT/_EX(CS!obCtrl, "Globlndcx", &etGlobIndex, Setfiloblndex, VT_I4) 
DISP_PROPERT/_EX(CSlobCtrl, "DimlSizc", SetDimlSize, SetDimlSize, \rr_I4) 
DISP_PROPERTY_EX(CebbClTl, "DimZSize", eetDimZSizc, SctDimZSize, VT_I4) 
DISP_PROPERTy_EX(ceiobCtrl, "ElementSizc", &ctElementSize, SetElementSize, VT_I4) 
DISP_PROPERTV_EX(CeiobCtrl, "Type", SetType, SetType, VT_I4) 
DISP_PROPERT/_EX(CSlobCtrl, "Extra"., SctExtpo, SetExtra, \rr_I4) 
DISP_PROPERT7_EX(ceiobCtrl, "DataSizc", SetDotcSize, SetDataSize, VT_I4) 
DISP_PROPERTy_EX(CeiobCtrl, "SlobName", eetSlobName, SeteiobNcme, VT.BSTR) 
CblSP_PROPERT/_EX(CGIobCtrl, "RleSize", SetFileSize, SetFileSize, VT_I4) 
'CblSP_PROPERTY_EX(CelobCtrl, "FileNamc", SetFileName, SetRleName, VT_BSni) 
^?t>ISP_PROPERTy_EX(CGIobCtrl, "Status", SetStotus, SetStatus, VT_I4) 
'.%ISP_PROPERTY_EX(CeiobCtrl, "Command", SetCommand, SetCommand, VT_I4) 
!4)ISP_PROPERTY_EX(ceiobCtrl, "SlobPtr", SetSlobPtr, SeteiobPtr, VTJ4) 
s-;|)ISP_PROPERT/_EX(CGlobCtrl. "DataPtr", SetDataPtr, SetDataPtr, VT_I4) 
S^|)ISP_PROPERTy_EX(C6lobCtpl. "AvailSize", SetAvailSize, SetAvailSize, VT_I4) 
./blSP_PROPERTy_EX(C(5lobCtrl. "ReadOnlyMMP', feetReadOnlyMMF, SetReadOniyMMF, VT_BOOL) 
!!|>ISP_PROPERTY_EX(CSIobCtrl, "Notify", SetNotify, SetNotify, VT_BOOL) 
jE>ISP_PROPERTy_EX(CSlobCtpl. "ValueB". SetByteValue, SetByteValue. VT_I2) 
n,E>ISP_PROPERTy_EX(CSlobCtrl, "Value32"., &ctLValue, SetLValue, VT_I4) 
ilblSP_PROPERTy_EX(CSIobCtrl, "Valuel6", feetlValue, SetlValue, VT_I2) 
CblSP_PROPERT/_EX(CSlobCtrl, "StrValue", SetStrValue, SetStrValue, \rr_BSTR) 
^"blSP_PROPERTy_EX(CSlobCtrl, "FullPath", eetFullPath, SetFuIIPath, VT_BSTR) 
DISP_PROPERTy_EX{CfilobCtrl, "AutoSendNotify", 6etAuto5endNotify, SetAutoSendNotify, \rr_BOOL) 
DrSP_PROPERTY_EX(CGlobCtrl, "nHandles", fietNHandles, SetNHandles, VT_I4) 
DISP_PROPERTV_EX(CeiobCtrl, "nNotifyMaps", 6etNNotifyMaps, SetNNotifyMaps, VT_I4) 
DISP_PROPERTY_EX(CeiobCtrl, "eiobSize", SetSlobSize, SetSlobSize, VT_I4) 
DI5P_PROPERTY_EX(CeiobCtrl, "RefCount", SetRef Count, SetRef Count, VT_x4) 
DISP_PRO?ERT/_EX(C&lobCtrl, "Version", SetVersion, SetVersion, VT_BSTR) 
DISP_PROPERTy_EX(C&lobCtrl, "UOM", feetUOAA, SetUOM, VT.BSTR) 
DISP_PROPERTy_EX(C5lobCtrl, "imk", fietLink, SetLink, VT_BSTR) 
DISP_FUNCTTON(CeiDbCtrl, "CloseMMF", MMFClose, VT_I4, VTS_NONE) 

DISP_FUNCTrON(ceiobCtrl, "AddNew", MMFAddSlob, VT_I4, VTS.BSTIi VTS_I4 VTS_I4 VTS_I4 \rrs_I4 VTS_I4 VT 

DISP_FUNCTTON(CSlobCtrl, "AddNewEx", MMFAddGlobEx, VT_I4, VTS_BSTR VTS_BSTR V i S_I4 VTS_I4 V i S_I4 VTf 

DISP_rUNCT[ON(C&lobCtrl. "SetFirstSlob", SetFirstSlob, VT_BOOL, vas.NONE) 

DISP_FUNCTrON(CSlobCtrl, "SetNextSlob", SetNextSlob, VT.BOOL, VT5_N0NE) 

DISP_FUNCinON(CGIobCtrl, "Erase", Erase, VT_EMPTY, \n-S_NONE) 

DISP_FUNCTTON(CSlobCtrl, "EraseMMF', MMFErcse, VT.EMPTY, vn-S_NONE) 

DISP_FJNCTTON(C51obCtrl, "Insert", Insert, VT.EMPTY, VTS_I4 vrrs_I4) 

DISP_FUNCT10N(CeiobCtrl, "ResizeMMF', ResizeMMF, VT_I4, \rr5_I4) 

DISP_rUNmON(CSlDbCtrl, "SendNotify", SendNotifyX, VT_EMPT>', VTS_I2 \n-S_I2) 

DISP_rUNCnON(CSIobCtrl, "FormctMMP, FormatMMF, VT_BOOL, vn"S_I4) 

DISP_FUNCnON(CeiobCtrl, "IndexOf ", IndexOf , VT_I4, VTS.BSTT?) 
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DISP_PROPERTy_PARAM(CeiobCtrl, "Value", GetValue, SctValue, VT_I4, VTS_U VTS_I4) 
DISP_PROPcRTy_PARAM(CeiobCtrl, "NotifyHandle", SetNotifyHandle, SetNotifyHandle, VT_IA. VTS_I2) 
DISP_PROPERTy_PARAM(CeiobCtrl, "oValueB", GetAbValue, Set Ab Value, VT_I2, VTS_I4) 
DISP_PROPERT/_PARAM(C&lobCtrl, "oValue32". SetAlValue, SctAlValue, VT_I4. VTS_I4) 
DISP_PROPERTy_PARAM(CSIobCtrl. "aValueie", SetAiValue, SetAiValue, VT_I2, VTS_I4) 
DISP_PROPERTy_PARAM(CeiobCtrl, "ValueSD". GetValueSD, SetValueSD, VT_I4, VTS_I4) 
DISP_PROPERTy_PARAM(CeiobCtpl, "NotifyMop", SetNotifyList, SetNotifyLtst, VT_I4, VTS_I4) 
DISP_PROPERT/_PARAM(CGlobCtrl, "NotifyOnChange", SetNotifyOnChonge, SetNotifyOnChange, VT_BOOL, VT5_BSTR 
DI5P_t)EFVALUE(CGIobCtrl."Value32") 

DISP_STOCICPROP_HWND0 
//)}AFX_DISPATCH_/AAP 

DISP_FUNCTTON_ID(CeiobCtrl, "AboutBox", DISPID_ABOUTBOX, AboutBox, VT_EMPTY, VTS_NONE) 
END_DISPATCH_MAPO 

iiiniiiiiinijjiiiiuiiiiiiiiuiiiiiiiiiiiiiiiiiiiiiii"iiiiiii/iiii"ii'i'i 

// Event map 

BSlN_EVENT_MAP(CeiobCtrl, COleContpol) 
;S/{{AFX_EVENT_MAP(ceiobCtrI) 

, •|vENT_CUSTOM("Change". FireChange, */TS_I2 VTS_I2 VTS_I4) 

■ j!4/}}AFX_EVENT_MAP 

Eip_EVENT_MAPO 

iM/iii/iiiiiiiiiiiiiiJiiiiiiuiniifiuiiiifiniiiiiiniiiiiiiiiiiiiiiiiiiii 

//li^^roperty pages 

/JItODO: Add more property pages as needed. Remember to increase the count! 
Bi|lN_PROPPAGEID5(CSlobCtrl, 1) 
:=f^ROPPAeElD(CeiobPropPqge::guid) 
eftib J^ftOPPAeElDS(CSlobCtrl) 

llllll/IIIIIIIIIIIIIIIJIIIIIIIIIIIIUIIIIIIIIIIIIIIIIIIIIIII^ 
II Initialize class factory and quid 

IMPLEM5NT_OLECREATt.EX(CeiobCtrL"SLOB.SiobCtrLr, 

0x5f 20d2d6, 0x7BSc, Oxlldl, Ox9a, 0x9b, 0x2, 0x7, 0x1, 0x4, 0x5a, 0x6b) 

lllllllllllllllllllllllllllllllllllllllllllllllllinilllllllll^ 
II Type library ID and version 

IMPLEMENT_OLETYPELIB(ceiobCtrl, _tiid. _wVerMajor, _wVerMinor) 



/////7//7////////////////////////7/////////////////////////////////////////// 
// Interface IDs 

const HD BASED_CODE nD.DSlob = 

{ 0x5f 20d2d4, 0x788c, Oxlldl, { 0x9a, Ox9b, 0x2, 0x7, 0x1, 0x4, 0x5a, 0x6b } }; 
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const IID BAStbjOObE HD.D&lobEvcnts = 

{ Ox5f 20d2d5. 0x788c, OxUdl, { Ox9q, Ox9b, 0x2, 0x7, 0x1, 0x4, 0x5a, Ox6b ) }; 



///////////////////////////////////////////////J//////./////////////////////// 
II Control type information 

static const DWORD BASED.CODE .dweiobOleMisc = 
OLEMISC.ACTIVATEWHENVISIBLE 1 
OLEMISC.SETCUENTSrrEFIRST I 
OLEMISC^INSIDEOUT 1 
OLEAMSC.CANTLJNKINSIDE 1 
OLEMISC_RECOMPOSEONRESIZE; 

IMPLEMENT.OLECUTyPE(ceiobCtrI, IDS.SLOB, .dwSlobOleMisc) 



iiiJiijjiinijjiiiiijjiiiiiJiiJiuinuiJiJiJjjjiiiiiu^ 

/£E&lobCtrl::CeiobCtrlFactory::UpdatcRcgistry - 
//IXdds or removes system registry entries for CSlobCtrl 

SI 

B#bL C&lobCtrl::CSlobCtrlFactory::UpdateRcgistry(BOOL bRcgistcr) 

1^/ TODO: Verify that your control follows apartment-model threading rules. 

Z)j Refer to MFC TechNote 64 for more information. 

J I If your control does not conform to the apartment-model rules, then 

fU you must modify the code below, changing the 6th parameter from 

gj afxRegApartment Threading to 0. 

Ill 

IJiif (bRegister) 

£l return Afx01eRegisterControlClass( 
Afx&etlnstanceHandleO, 
m_clsid, 
m^lpszProglD, 
IDS_SLOB, 
IDB_6L0B, 

afxRegApartment Threading, 

_dwSlobOleMisc, 

-tlid, 

_wVerMajor, 
_wVerMinor); 

else 

return AfxOleUnregisterClass(m_clsid, mJpszProglD); 

} 

niiiiiiiiiiiiuiiiiiiiiiii/iiiiiniiiiniijiutiiiiniiii/in 

II Licensing strings 

static const TCHAR BASED.CODE.szLicFileNameO = _TC"eiobJic"); 

static const WCHAR BA5ED_C0DE ^szLicStringO - 
L"Copyright (c) 1999 SPX"; 
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jiiiiniiiiiiiiiiiiiiiiiiiiiiiiiiiiniiiiiiiimiiiniiif """""""""" 

II ceiobCtrl::CeiobCtrlFQctory::VepifyUscrLicensc - 
// Checks for existence of q user license 

BOOLCSlobCtrl:;CeiobCtrlFoctory::VerifyUserLicenseO 
{ 

return AfxVerifyUcFile(Af xSetlnstanceHondleQ, _szLicFileName, 
_szUcString); 

} 

iiiiiiiiiiiiiiiiiiiiiniiiiiiiiiiiiiiiiiniiiiiiniini'"'!'"""""""" 

J I C6bbCtrl::CSlobCtrlFQctory".&etLicenseKey - 
// Returns a runtime licensing key 

BOOLCeiobCtrl::C&lobCtrlFactory.:&etLicenseKey(bWORDdwReserved, 
rBSTR.FAR*pbstrKey) 

filf (pbstrKcy = NULL) 
4= return FALSE; 



tPpbstrKey = SysAllocStringLszLicString); 
^^eturn :(*pbstrKey != NULL); 




/?ffceiobCtrl:-.CGlobCtrl - Constructor 



c'eiobCtrl::C5lobCtrlO 

InitializeIIDs(&IID_Deiob, iIID_D&lobEvents); 

// TODO: Initialize your control's instance date here. 
SetlnitialSizeC 32, 32 ); // Force to have o certain size at startup 

IpLost-NULL; 

IpVicw s NULL: 

s_hFileMap = NULL 

hnieMapT=NULL- 

f r .NULL; 

eiobLock = NULL 

MMFUck=NULL 

m_FileName= "C:\\SLOBA\MP; 

rr._FileS:ze = A,MN_FILESIZE; 

eiobPtr = 0; 
m_;Notify = false; 

} 
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iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiuiiiiiiiiniinjiiniiiiiiiimuiiiiii 

II ceiobCtrl::~CGlobCtrl - Destructor 

C&lobCtrl::-CSIobCtrlO 
{ 

// TODO: Cleanup your control's instance date here. 

RemoveNotify(eiobPtr^etSafeHwndOX' 

if (lpView){ 

lpView->RefCount— ; 

UnmapViewOf File((LPVOIt)) IpView); 

eiobPtr = NULL- 

lpView=NULL; 

lpLast=NULL: 

CloseHandle(s_hRleMap); 

CloseHandle(f); 

} 

yf; (SlobLock) delete SlobLocIc 

SobLock = NULL: 

f = (MMFLock) delete MMFLock; 

iMFLock=NULL 

u\ 

ifujiiii/i/iiiiiin/iiJjjjjjiiiJiiiiriiujiJ 

//?f)SlobCtrl::OnDraw - Drawing function 

m 

voi(iCGlobCtrl::OnDraw( 
Si CDC* pdc, const CRectd rcBbunds, const CRectdrcInvalid) 

{ P 

// TODO: Replace the following code with your own drawing code. 
CRect r; 

CPictureHolder pict; 

if (lAmbientUserModeO) { 

r = rcBounds; 

r.right = r.left + 31; 

r.bottom = r.top + 31; 

pict,CreateFromBitmap(IDB_SLOB); 

pict.Render(pdcx,r)* 
SetControlSize(32,32); 
} else { 

ShowWindow(SW_HIDE); 

} 



///////////////////////////////////////////////////////////////////////////// 
// C&lobCtri::DoPropExchange - Persistence support- 
void CSiobCtrl::DoPropExchange(CPropExchange* pPX) 
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{ 



CString strficsult; 

ExchangeVersionCpPX, MAKELONSLwVerMinor, .wVcrMojor)); 

COIeControl-.DoPropExchanpeCpPX); 

long ret; 

// TODO: Call PX_ functions for each persistent custom property. 
{ 

// Make FileName property Persistent 

PX_String(pPX_T("FileNbrnc"),rn_FileName;'C:\\SLOBMMP); 
Set Pi leName(m_FileName); 

// make SlobName persistent 

PX^String (pPX, _T("eiobName"), m^SlobName, ""); 

Set&lobName( m.filobName // look up the Slob for this name, should relookup 
Cl J=^3oDl(pPX_Tt"AutoNotify*'),m_AutoNotify,true); 

m 

Wbt = SetVisibleO; 

//{k-^///////////////////////////////////////////////////////////////////////// 

y/iSlobCtrl-.-.OnftesctState - Reset control to default state 

ill 

voii|J C(51obCtrl"-OnResetStateO 

-I 0 

i50leControl::OnResetStateO; // Resets defaults found in DoPropExcnange 
// TODO: Reset any other control state here. 

} 



///////y//////////////////////////////////////////y////////////////////////// 

// CSIobCtrh-.AboutBox - Display an "About" box to the user 

void CSlobCtrl::AboutBoxO 

{ 

CDialogdlgAboutgDD.ABOUTBOX.SLOB); 
dlgAbout.DoModalQ; 

} 

///////////////////////////////////////////////////////////////////////////// 
.// CSlobCtrl message handlers 

long CSlobCtrl::6etSlobIndexO 

{ 
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// TODO: Add your property handler here 
if (SlobPtr) 

return (int)(&lobPtr>(int)lpView; 
return -1; 

} 



void CSlobCtrl".Set5lobIndex(long nNewVaiue) 
{ 

// TODO: Add your property handler here 

if ((nNcwVaiue >= lpView->First&lob) && (nNewVdue <= lpView->Nex+ Avail)) // in range?... 
{ 

RcmoveNotify(eiobPtr,5etSafeHwndO); 

GlobPtr = (teiob *)((int)lpView + nNewVolue); // hope caller knows what he's doing 

if (eiobPtr) 

{ 

datasize = (51obPtr->datasize; 
Se+eiobName((LPCTSTR)SlobPtr->name); 

0} 

I 

I'SetModifiedFiagO; 

lon^ ceiobCtrl::&etDimlSi2eO 

r// TODO: Add your property handler here 

if(SlobPtr) , 

til return SlobPtr->diml; 

IJ%turn-l: 

void C&lobCtrl::5etDinr\lSi2cClong nNewValue) 
{ 

// TODO: Add your property handler here 
if (eiobPtr) 

&lobPtr->diml = (short)nNewValue; 
SetModifiedFlagO; 

} 

long C5lobCtrl::SetDim2SizeO 
{ 

// TODO: Add your property handler here 
if (SlobPtr) 

return &lobPtr->dim2; 
return *1; 

} 

void CSlobCtrl::SetDim2Size(long nNewValue) 
{ 

// TODO: Add your property handler here 
if (SlobPtr) 
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eiobPtr->dim2 = (short)nNewValuc; 
SctModifiedFbgO; 

} 

long ceiobCtrl::6ctElementSi2cO 
{ 

// TODO: Add your property handler here 
if(eiobPtr) 

return &lobPtr->eltsize; 
return -1; 

} 

void C&lobCtrl::SetElementSize(bn9 nNewValue) 

{ 

// TODO: Add your property handler here 
if(eiobPtr) 

£lobPtr->eltsize = (short)nNewValue; 

SetModifiedFlagO; 

3 0 

CebbCtrl::&etTypcO 

^ TODO: Add your property handler here 
S (eiobPtr) 

^ \ return &lobPtr->type; 
return -1; 

} h 

vc^ CSbbCtrl::SetType(long nNewValue) 

{ m 

i?y TODO: Add your property handler here 
Iff (SlobPtr) 

GbbPtr">type = (short)nNewValue; 

SetModifiedFlagO; 

} 

bng ceiobCtrl::SetExtraO 

{ 

// TODO: Add your property handler here 

if (eiobPtr) 

return SbbPtr->extra; 
return -1; 

} 

void ceiobCtrl::5etExtra(long nNewValue) 
{ 

// TODO: Add your property handler here 
if (SlobPtr) 
SlobPtr->extra = (short)nNewValue; 

SetModifiedFlagO- 

} 

9 



Ci 
^« 

ill 
4= 

m 
111 

Hi 

Ci 

ni 
111 
c:i 



Page Blank (usp/oj 




long ceiobCtrl-.&etDctaSizcO 
{ 

// TODO: Add your property handler here 
if (SlobPtr) 

return &lobPtr->datasi2e; 
return 0; 

} . 

void CSIobCtrl".5etData5ize(long nNewValue) 
{ 

// TOt>0: Add your property handler here 
if(GlDbPtr){ 

GlobPlT->datasize = (short)nNewVQluc; 

datasizc = eiobPtr->datQSi2e; 

SetModifiedFlagO; 

} 

KlrR ceiobCtrl::&et&lobNamcO . 

Hbstring strResult; 

sIyTE nam[17]; 

ill . . 

lf(&lobPtr) 

U ■ . ' 

% for (i=D;i<16;i++) nam[i] = elobPtr->name[i]; 
III nam[16]= '\0'; 

W StrResult = nam;//m_GlobName://nam://61obPtr->name; 

0 

l=Feturn strResult-AlbcSysStringO; 

}' 

void CSiobCtrl::SetSlobName(LPCTS"ni IpszNewValue) 

{ ■ 
CString MutexName; 

// Changing value of SlobName does read of Slob. If found, new properties are seen. 

RctnoveNotify(GiobPtr.&etSafeHwndO); 

eiobPtr = (teiob *) MMF&etSlobPtr(lpszNewValue); 

if (elobPtr) 

{ 

datcsize = SlobPtr->datasize; 
m_eiobName = IpszNewValue; 

} 

else 

{ 

m_SlobName.£mptyO; 

) 



SetModifiedFlagO; 
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long C&lobCtrl::6etFileSi2cO 

// TODO: Add your property handler here 
return m^FileSize; 

) 

void ceiobCtrl::SetFiieSizc(long nNewValuc) 

// TODO; Add your property handier here 
SetModifiedFlogO; 

} 

BSTR C&lobCtrl::eetFileNameO 
{ 

CStrinsstrResult; 

fH TODO: Add your property handler here 
;'^rResult = m_FileNamc; 
ikturn strResult.Alloc5ysStrin90; 

V C&lobCtrl::SetFileName(LPCTSTR IpszNewValue) 

{111 

long retval; 
%S\T\x\^ oldf ilename; 
^fString CurrenteiobName; 

Sl^rrentSlobName = SeteiobNameO: 
ioidf ilename = m_FileName: 
[nLFileName.Format("%sMps2MewValue); 

m.Fiie5i2e= B192; 
CString x; 

//At xMessageBox("5etting file name."); 
retval = AAA^FCreatcQ; 

//x.FormatC'MMFCreate returned: %i" retval): 
//AfxMessageBox(x); 

if (retval != OK) { 

//AfxMessageBoxC'Set Filename failed."): 
m„FiieName = oldf ilename; 
retval = MMFCreateQ: 
if (retval != 0K){ 

m.FileName = "eiobMWlP; 

WvMFCrecteO; 

SetetobName(CurrenteiobName); 
ThrowError(0 "failed to create MMF!",0); 

} 

SetSlobName(CurrenteiobName); 
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ThrowError(0 "Invalid BleMamc." ,0X' 

) 

//AfxMcssageBoxC'File Name set."): 

Set&lobName(Current&lobName); 

SctModificdFlogO; 

} 

long ceiobCtrl-GetStatusO 

{ 

// TODO: Add your property handler here 
if (SlobPtr) 

return &lobPtr->status; 
return -1; 

} 

void CGlobCtrl::SetStatus(long nNewValue) 

{ 

.// TODO: Add your property handler here. 

(eiobPtr){ 
^li eiobPtr->status = (short)nNewValue; 
g) SendNotify(eiobPtr,ipViewJC)STAnJSXshort)nNewValue); 

M 

GsetModifiedFlagO; 

3 111 

long CGlobCtrl::&etCommandO 

s 

(SlobPtr) 
1 5s return SlobPtr->command; 
^'T^eturn -1; 

void ceiobCtrl::5etCommand(long nNewValue) 

{ 

// TODO: Add your property handler here 
if (SlobPtr) { 

SlobPtr->command = (short)nNewValue; 

SendNotify(SlobPtrJpVicwJDCOMMAND,(short)nNewValue); 

} 

SetModifiedFlagO; 

3 

long CGIobCtrl::&eti5lobPtrO 
{ 

// TODO: Add your property handler here 
return (long)SlobPtr; 

3 

void CGlobCtrl::Set&lobPtr(lon9 nNewValue) > 



12 



s 

m 

h= 
m 
ill 

HI 

O 

m 

ill 

o 



{ 

// TODO'- Add your property handler here 
RemoveNotify(SlobPtr,6etSQfeHwndO): 

eiobPtr - (teiob *)nNewValue; // hope caller know what he's doing, 
datosize = GlobPtr->datQSi2e; 
SetSlobNamc((LPCTSTR)eiobPtr->name); 

SetModifiedFlagO: 

} 

long CSlobCtrl-.-.SetDataPtrO 

{ 

// TObO: Add your property handier here 
if(eiobPtr) 

return (long)(A(GlobPtr->data));// + sizeof (t&lob); 
else 
return 0; 

) 

voil ceiobCtrl:-.SetDataPtr(long nNewValue) 

{ Si 

^ TODO: Add your property handler here 
//^ISetModifiedFlagO: 

lo% CSIobCtrlxfiet AvaiiSizeO 

r U 

;|7 TODO: Add your property handler here 
M (IpVicw) 

n return nuRleSize - lpView->NextAvail; 

liilse . ■ 

return 0; 

} 

void CSlobCtrl::SetAvail5ize(long nNewValue) 

{ 

// TODO: Add your property handler here 

// SetModifiedFlagO; 
} 

BOOL C&lobCtrl::GetReadOnlyMMFO 

•{ 

// TODO: Add your property handler here 
if(lpView) 

return (BOOL)lpV'iew->5<eadOniy; 
else 

return 0; 

} 



13 



void CGlobCtrl::5etReadOnlyMMF(BOOL bNcwValue) 
{ 

J I TODO: Add your property handler here 
lpView->ReQdOnly = (int)bNewValue; 
SetModifiedFbgO: 

} 

BOOL C&lobCtrl::&etNotifyO 

{ 

// TODO: Add your property handler here 
return m_Notify; 

} 

void CGlobCtrl::SetNotify(BOOL bNewValue) 
// TODO: jAdd your property handler here 

i^OOL ret 
#WND hWind; 

jlSinQleLock LockMe(SlobLock); 

=|; ' • ^ 

ilf (lAmbientUserModeO) { „ 
ThpowError(m_E_PERAMSSIONDENlED;"This property can only be set at runtime. ,0); 

■\ return; 

'if(l&lobPtr){ . ^, ^ ^ ^. „^ 

% T>,rowError(CU_E_PERMISSIONDENlED,"eiobMaine property is notsetAn Can not register ©lob for notification. ) 

- Ill 
fl return; 

I ■ ■ • . ■■ 

LockMe.LockO; // waits infinitely for resource to be available. 

// can use a timeout value as o parameter (nts) if desired. 

hWind = &etSafeHwndO; 

if (bNewValue) 

ret = AddNotify(eiobPtr,hWind); 
else 

ret = ftemoveNotifyCSlobPtrjiWind); 

if (ret) 

m_Nlotify = bNewValue; 

LockMcUnlockO; 
SetModifiedFlagO; 

} 
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long CSlobCtrl::6etValue(lon9 Dim2. long Diml) 

{ 

long I; 

if (SlobPtr) 
{ 

I = (DimZ* eiobPtr->diml)+ Diml: 
if ((I * 6lDbPtr->cltsi2c D < elobPtr-xdtrtasizc) 

{ 

switch (SlobPtr->eltsi2c) 
{ 

case 4: return eiobPtr->dateLLong[ll; 
case 2: return eiobPtr->data.Short[l]; 
default: return GlobPtr->datc.5ytcI!3; 

} 

} 

} , - 

return -1; 

} 

voUi CGlobCtrl::SetValue(long DimZ, long Diml, long nNcwValue) 
5rf (!(lpVicw->ReadOnly)) 

IS 

!:1 if (filobPtr) 

n 1 = (Dim2 ^ eiobPtr->dinil) + Diml; 
^i? if ((1 SlobPtr->eltsl2e ) < eiobPtr->datasi2e) 

■ m i 

\!\ switch (SlobPlT->eltsi2e) 

case 4: eiobPtr->datcLLong[I] = nNewValue; - . 
break; 

case 2: &lobPtr->data.Short[0= (short)nNewValue; 
break 

default: eiobPtr->datQ.Byte[I] - (BYTE) nMewValue; 
break; 

3 

// notify controls on list of change 
//if (eiobPtr->notify !=0) 

SendNotify{eiobPtrjpViewJDVALUE,0); 

} 

1 

//SetModifiedFlagO; 

} 

3 

MMFCreote: Create file (or just open it) and map q View to it 



long C5lobCtrl::MMFCreatc(void) 

{ 
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struct _stat buf ; 
int resultj; 
CString MMFNome; 
BOOL FirstMapplng; 
char buffer[256]; 
//CString temp; 
//BYTH *testView: 
y/BYTt tcstReod; 

BYTE *MMFLastByte; 

long OldRleSize; 

long NewFilcArca; 

long HandlcListSize; 

DWORD fileretval; 

long errcode; 



if (lpView){ 

/yreftemp.Format{"Ref Count- (MMFCrcate) f=%i".f); 

y/AfxMessageBox(reftemp); 

|pView->Ref Count-; 

UnmapViewOfnie((LPVOID) ipView); 
J= SlobPtr = NULL 
i=;i lpView=NULL: 
Si lpLast=NULL; 
ill CloseHandle(s_hFileMap); 
''I CloseHandie(f); 

if (SlobLock) delete eiobLock; 
Q ei6bLock=NULL; 
:f : if (MMFUck) delete MMFLock; 

MMFLock= NULi: 

li 



// Af xMessageBoxC'Made it pest unmapping stuff"); 
fileretval = ::&etFullPathMame(m.FileName,254>uffcr,NULL); 

if (fileretval = 0} { 

m_FullPath = m„FiieName; 
} else{ 

m_Fu!IPath.Farmat("7oS",(LPCTSTT^)buffer); 

} 

//AfxMessageBox(m_FullPath); 

MMFName = GetName(m_FullPath); 

// Initialize the Mutcx objects 

5PX_N0TTFy_MUTcX = MMFName "NOTIFY"; 

SPX_MMF_MUTtX = MMFName + "MMP^• 

SiobLock = new CMutex(f alse^PX^NOTIFY.MUTEX^NUa); 
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MMFLock = new CA\utex(f alse^PX_MMF_AMJTHX>lua); 



//Af xMcssageBoxCMA^FName); 
/* &ct da+o associated with file */ 

result = _stat( m_FullPath. Abuf ): // result will be -1 if file does not 

//if the file exists then get its f ilesize 
if(iresult){ 

if (buf ^_size > n\_FileSize) 

iT\_RleSize = buf^_size; // get size of file 

OldFileSize= buf^_size; 
}else{ 

OldFileSize = 0; 

} 



//DEBUe 

//temp.Format("MMF FileSize = %d\n",m_FileSize); 
//LogErrorString(temp); 

Create, an in-memory memory-mapped file. 
= CreateRle( m_FullPath, 
=P eENERIC_READ 1 5ENERIC_WRric, 

FILE_SHARE_READ I FILE_SHARE_WRrrE, 

S NULL, 
■'r OPEN.ALWAYS, 
" FILE_ATTO:BUTE_NORMAL.//FileAttr. 

NULL): 

0 (f ==INVALID_HANDLE_VALUE) 

ail 

III //Af xMessageBoxC'Cant. open file"); 

n //RaiseException(997A0,0); . *• ^ 

1='= //ThrowError(0,'1nvalid File Name",0); //TnowError only works in properties and metho-s 

return ERR_INVALIDFILENAME; 

} 

//AfxMessageBoxC'File opened OK"); 
y/&rowthe file 

SetFilePointer(f,m_File5i2e,NULL,rILE_3E5IN); 

SetEndOfHlc(f); 

//Error checking? 

s hFileMap = CrenteFileMoppingCf , NULL, PA&E.READWKTTc. 0, 0. VvMFName /-ViewNomeV); 
// slhFlMap = CreoteFileMappin9((HANDLE) OxFFFFFFFF, NULL, PASE.I^EADWRITE, 0, MMFS.ze, MMrName), 

errcodc = SetLcstErrorQ; 

//reftemp.Format("Error code %i (%!)", errcode,ERROR_ALREADy_EXI5TS); 

//AfxMessQgeBox(reftemp); 

if (errcode == ERROR_ALREADY_EXISTS) { 

FirstMapping = false; 
3 else { 
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FirstMapping = true; 

} 



if (s_hFileMap != NULL) 

// if (SetLostErrorO == ERROR.ALREADY^XISTS) McssageBox{myhWnd ^TCXT("MMF Already Exists."), NULL, MB. 

// File mapping created successfully. Map a view of the file into the address space. 

IpView = (tControl *)MapViewOf nie(s_hFHaMap. FILE_MAP_WRITE 1 ;FILE_MAP_READ, 0, 0, 0); 

if (IpView != NULL) 

{ 

//fill in O's if file is expanded 
if (m.FileSize > OldFileSize) { 

//LogErrorStringC'Filting in new memory with 0's\n"); 

MMFLastByte = (BYTE *)((long)lpView + OldFileSize); 
. NewFileArea = m.FileSize - OldFileSize; 

memset(MMFLastBytep,NewFileArca); 

} 

t| y/set rest of Slob Attributes 

h if (lpView->nNotifyMaps == 0) 

ii lpView->nNotifyMaps = DEFLNOTTFYMAPS; 

4^ HandleListSize = 32*sizeof (long)*lpView->nNotifyMaps; 

m_MaxLinks = lpView->nNotifyMaps*32; 
^ |pView->Slze = nuFileSize: //make global 
^ |pView->Firsteiob = sizeof ( tControl ) + HandleListSize; 
^'^^ IpLost = (BYTE *)lp View + m.Fi leSize - sizeof (tSlob) - sizeof (int); 
L if OlpView->NextAvaiI) 

'li lpView->Next Avail = sizeof ( tControl ) + HandleListSize; 

lii //reftempJormat("RefCount++.(MMFCrcate)f=%i".f); 
f:i y/AfxMessageBox(reftemp); 
|pVlew->Ref Count-H-; 



// clear out Notify array if this is the first mapping 
if (FirstMapping) { 

//AfxMessageBoxC'First Mappins, Clearinj Notify Handles"); 

for (i=0;i<m.MGxLinks;l++) 
lpView->NotifyHandle[i] r 0; 

lpV»ew->Ref Count = 1; 

// Reset globs 

MMFReseteiobsO; 

} 

return OIC 

} 

else 

{ 

return ERR_CANT_MAP_VIEW.Or_FILE; 

} 

} 

else 
{ 



IB 



return ERR_CANT.CREATt_FILE_A^APPIN(5 

} 



return EftR_INVALIDFILENAME' 

} ■ 

iiiiiiiJiUJiuJiNJ/iiJiiiniiiJiJiiiniiiiiinjiiiuJiiiiiJiJ 

1.1 Creaie. a unique MMF view name from the M/AF filename -RK 

jiii/ij.iiiiiuiuniiiiiJiiJniiiJiiiiiniiuujriiinnJiiiJii 

CString eetName(CString s) 

{ . 
inti j: 

CString Buffer; 
int len; 

y/AfxMessageBox(s); 
j = 0; 

ien = s.&etLengthO; 

#^ load Buffer with spaces 
ijlor (i=0;i<len;i++) 
Buff er = Buff cr + " 

!SDr(i=0:i<len:i+^{ 
!f; .if (s[i3b'\V3{ 
^ BufferSetAtQ^p]); 

1 }" 
ill 

fiuff er-TpimRightQ; 

C| 

/>1-Buff cr = s.Right((len-i)-l); 
Buffer.MakcUppcrQ: 
return Buffer; 

} 

long CeiobCtrl::MMFOpen(LPCTSTR Rlehtame, long FiieAtrr/LPCTSTR ViewName, long RleSize) 
{ 

// Create an In-memory memory-mapped file 
// 

FileAttr = FILE_ATTRIBUTE_NORMAL- // force it for now 
f = CreatcFile( FileName, 

eENERIC.READ i eENERIC.WRTTE, 

FILE_SHARE_READ I FILE_SHARE_WRITt, 

NULL, 

OPEN.ALWAYS, 

RleAttr, 

NULL): 

if (f==INVALID_HANDLE_VALUE) 
{ 

// MessageBox(myhWnd_TEXT("Cant openfile"lNUa,MB_OK); 
return 0; 



19 





} 

s_hFileMQp = CreateFileMapping(f . NULL, PA&E_RE AD WRITE, 0. FileSize, ViewNome); 
// for memory-only, use "CreateFileAAappingCCHANDLE) OxFFFFFFFF 

if (s_hFileMap 1= NULL) 

// If (&etLastErrorO == ERROR_ALREADy_EXISTS) MessageBoxCmyhWnd ^TEXT("MMF Already Exists."). NULL, MB_ 

J J File mapping created successfully. A^ap a view of the file into the address space. 

IpView = (tControl *)MapViewOf Rle(s_hRleAAap, FILE_MAP_READ I FILE_MAP_WRITE, 0, 0, 0); 

if (IpView != NULL) 

{ 

I J View mapped successfully. 

// To unmap the view: (This protects the date from wayward pointers). "UnmapViewOfFile((LPVOID) IpView);" 
lpView->Size = FileSize; // make global 
lpView->First6lob = sizeof { tControl ); 
IpLost = (BYTE *)lpView * RIeSize - sizeof (tSlob) - sizeof (int); 
jf (!lpView->MextAvail) lpView->.NcxtAvail = sizeof ( tControl ); 
return OK; 




=p - RaiseException(999,0.,0,0); 

//Messa3cBox(myhVk^nd ^TEXT("Can"t map view of file."), NULL, MB_OK); 

*S return ERR CANT_MAP_VIEW_OF_FILE: 




RaiseException(998 ,0,0,0); 



s jl //Messa9eBox(myhWnd ^TEXTC'Can't creote file mapping."),NyLL, MB_OI0; 

i^ return ERR CANT CREATB_FILE_MAPPIN6 ;-2; 



return 0; 




long C£lobCtrl::MMFRemapView( long newsize ) 



return MMFCreoteQ; // 03/12/98 RBK 




long CeiobCtrl::MMF&et&lobIx(L?CT5TR SlobName) 



t&lob*lp51ob; 
CString name; 
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if (SlobNome t= NULL) 

name = SlobName: 
else 

name = 

if (name.&etLcngthO == 0) 
return 0; 

f or ( 

lpeiob=(teiob *)((int)lpVicw + lpVicw->Firsteiob); 
lpSlob->si2e 44 (int)lp&lob<(int)ipLast; 
IpSlob = (tSlob*X(int)lpeiob+lpeiob->size) 

) 

if (Lstrnicmp( (const char *)&lobName, (const char *)((teiob *3!p&lob>>name, Glob_NAME_LENGTH ) ) 
{ 

return (int)lp&lob - (int)ipView; 

} 

return 0; 

HMMFEraseSlob: Clear the Slob to zeroes, but leaving its space still linked in. 

yi|»»»rtt<c»^^c»< c»*kAAA » »* ik AAA wiAAAA »»A A A»AA <r**KAA A* AAAAX A AA»<^^ 

vbid CeiobCtrl::MMFEraseGlob( tSlob *B ) 

/HI 

Hnt save_size; 
""t/CString DebugStr; 

si 

i 



5 n save size = B->si2e; 

//DebugStr.FormatC'ScveSize = 7oi\n"^ave_si2e); . 
y/LogErrorStrin3(DebugStr); 

memset( (BYTE *)B, 0, save.size); // clear all 

B->si2e = save^size; // restore size for linking past 

} 

} 

^JtA A A' A A 

MMFFirstSlob: Returns pointer to 1st Glob in the MMF 



tA A A A At^AT 



at^rA^**»1tA^t*Ar* A A A AA A AAAAAAAAAA AA AAAAAAAAA!frA- AAAAAAAAAA AAAAXAr^ATfrA 



teiob *ceiobCtrl::MMFFirstSlobO 
{ 

return (t&lob *)((int)lpView + lpView->First&lDb); 

} 

y»^»A^»ttl^»*A: A A A A A A A A:A^»llr*»»<e^lirtrtr»Ar»»c»c<r»ArArATfr»^A: A AAA AA AAAAAAA A A »yA:!r»ATr^*l»cAr»l»l*rtrAryA: A A A A A A A Ay^ATA^ArArA^y AAryAryAAr AAr^X A-w^ 

MMFNextAvailGlob: Scans from beginning for empty Glob of adequate size. If none, uses NextAvail pointer 

AiLiLAAAAAAAAAAAAAAAAAAAA 1t*AAA A >lc A A AA AAf AAAAAAA A A A» AAAAAAAAXAAAAAAAAAAA 1fry AAAAAAAA »AAAAAAAAArifcyA^yA^Ar»A^ir»yA^y^ 

tGlob *CGlobCtrl::MMFNlextAvailGlob( long size ) 

{ . 
CString DebugStr; 
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int lastchance=(int)lpVicw * m^^5i2c - size - 1; 
t&lob *lp&lob; 

//DEBUS 

//IpSlob = MAAFFirsteiobO; 

//DcbugStr.FormatC'RrstSlobSizc: 7oi\nMpSlob->si2e); 

//LogErrorStringCDcbugStr); 

//ENDDEBUe 

for ( // chain thru filobs in MMF 

lpeiob=MMFFirsteiobO; // first Slob... 

lp&lob->si2C 44 ((int)lpeiob < lastchance); // if size is nz, within range 

IpGlob = (teiob*)((int)lp&lob + lpeiob->size) . ' 

){ 

//DcbugStr.Format("Name: 7oS size: 7oi\n", lp&lob->nameJpSlob->size); 
y /LogError Str i ng(DebugStr); 

if (lpeiob->name[0] == *\6' 44 lpSlob->si2e >= size) // if has zeroed-out name and is big enough... 
return IpSlob; // return pointer to it 

.|// falls thru loop...no empties found 

Sjpeiob = (tSlob*X(int)lpView + lpVicw->NextAvaiI); // else get pointer to next one in AAMF 
.|if {(int)lp&lob > lastchance) // is there room for it? 

IpSiob = 0; // no, return 0 

l^return IpSlob; 

3111 

TQOL: AAMFSetSlobPtr: Siven the SlobName, find and return pointer to Slob, else zero 

loll CSIobCtrliiMMFSetSlobPtrCLPCTS're SlobName) 

im - ■ 

,Hsiob*lpSlob; 

r//CString temp; 
for ( 

ipSlob=MAAFFirstSlobO; 
lpSlob->size 44 ((int)ipSlob < (int)lpLast); 
IpSlob r (tSiob*)((int)ipSlob+lpSlob->si2e) 

){ 

/* 

if (LineDebug) { 

temp.FormatC'SlobName: 7.^\nlpSlob = 7oi , IpLcst = 7oi , Size = 7oi\n" /(const char *)at&lob *)lpSlob) 
->name)jpSlob,lpLcst,lpSlob->size); 
LogErrorString(temp); 

} 

if (LstrnicmpC SlobName, (const char '){{i&\oh *)lp51ob)->name, &lob_NAME_LENSTH )) { 
//Linct>cbug = false; 
return (int)lpSiob;//true 32-bit pointer 

) 

} 

//LineDebug = false; 
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return 0; 

} 

void CSlobCtrl::MMFRescteiobsO 
{ 

teiob «ipeiob: 

int i; 

ByTH*temp; 
Ions* MapPtr; 
long dotQcount; 

f or ( 

|pGlob=MMFFirsteiobO; 

|peiob->si2e 44 (in+)lpeiob<{int)lpLast; 

IpSlob = (teiob*)((int)lpeiob+lpelob->size) 

^ ^ datocount = lpSlob->diml * lpeiob->dim2 * lp&bb->eltsize; 
temp = (ByTE*)Ipelob + sizeof (tSlob) + datocount; 
n "for (i=0;t<lpVicw->nNotifyA\aps;i++) { 
ii J J Ip&lob->notifymapli3 = 0; 
III . MapPtr = (long*)temp+ i; 
=1= • *MapPtr = 0; 

I lp51ob->command - u; 
'^^ lp&lob->status = 0; 

feturn; 

111 

voji ceiobCtrl:-.MMFClearSlobBits(long index) 

■{ M 

teiob *lp6iob; 

long maplndex^itlndcx; 

BYTE* temp; 

long* MapPtr; 

long datocount; 

maplndex = index/3Z; 
bitlndex = index - maplndex*32; 

for( 

lpSlob=MMFFirstSlobO; 

((int)lp5lob <= (int)lpLast) 44 lp&lob->size; 

IpSlob = (tSlob*)((int)lp5lob+lp&lob->size) 

^ ^datocount = lpi51ob->diml * ipSlob->dim2 * lp&lob->eltsi2e; 
temp = {ByTE*)lpSlob + sizeof (t6lob) + datocount; 
MapPtr = (long*)temp + maplndex; 

//lpeiob->notifymap[mapIndex] 4= (NOTTFYMASK ' BitListlbitlndex]); 

*MapPtr 4= (NOTIFYMASK " (l«bitlndex)); 

if (NotifyListIsEmpty(lp&lob)) lpeiob->ptrMap = 0; 
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} 

. return; 

} 

long ceiobCtrl;:MMFCiearGlobBit(t&lob* SPtrjong index) 
{ 

telob *lp&lob; 

long maplndex^itlndex; ** 
BYTE* temp; 
long* MapPtr; 
long count; 
long datacount; 

count = 0; 

maplndex = index/32; 
bitlndex = index - mQpIndex*32; 

for( 

lp61ob=MMFFirstGlobO; 
% {(int)lpeiob <= (int)lpLast) &4 lpeiob->si2e; 
|l IpSlob = (t&lob*)((int)lpSlob+lpeiob->si2e) 

C ^ datacount = lpSlob->diml* lp5lob->dim2* lpeiob->eitsi2e; 
Si temp = (ByTE*)lpSlob + sizeof (tSlob) + datacount; 
ill MapPtr = .(long*)tcmp + maplndex; 

H y/lp51ob->notifymapImapIndexl 4= (NOTEFYMASK ^ BltList[bitIndex]); 

if (*MapPtr & (l«bitlndex)) { 
^=1 count++; 
± if(ePtr= IpSlob) { 

j;i "MapPtr i= (NOTIFyMASIC " (l«bitlndex)); 

count— j 

r[ if(NotifyUstIsEmpty(lpeiob)) lpeiob->ptrMap.= 0; 

} 

return count; 

} 

BOOL CSlobCtrl::NotifyListIsEmpty(teiob *lpSlob) 

{ 

BYTt^tcmp; 
long* MapPtr; 
int i; 

BOOL isEmpty; 
long datacount; 

isEmpty = true; 

datacount = lpSlob->diml * lp&lob->dim2 * lpSlob->eltsi2e; 
temp = (ByTE*)lpSlob + si2eof(t&lob) datacount; 
MapPtr = (iong*)temp; 

for (i=0;i<lpView->nNotifyMaps;i++) { 
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if ("(MapPtp+O) isEmpty s false; 

} 



return isEmpty; 

} 

void .ceiobCtrl::5ctBitMap(tSlob* 61obPtr jong index) 
{ 

long maplndex^itlndcx; 
long* MapPtr; 
BYTE *temp; 
long datacount; 

maplndex = index/32; 
bitlndex = index - maplndex*32; 

datacount = eiobPtr->diml * eiobPtr->dim2 * SlobPtr->cttsi2e; 
if (&lobPtr->ptrMap == OH 
r\ &lobPtr->ptrMap = sizeof (tSlob^ + datacount; 

I 

:p/6lobPtr->notifymap[nr\apIndex] 1= BitLi5t[bitIndex]: 

^kmp = (BYTPOSlobPtr + eiobPtr->ptrMap; 

J^/^opPtr = (lDng*)temp ^ maplndex; 

%apPtr |=.(l«bitlndex); y/BitList[bitIndex]; 

} □ 

"s"' 

tu 
■ Q 

ior® CSIobCtrl'.iMMFCioseO 

II TODO: Add your dispatch handier code here 
y/reftempJornurtC'Rcf Count- (MMFClose) f=7o[^f); 
.//AfxMessageBox(reftemp): 
lpView->Ref Count— ; 

Ren\oveNotify(SlobPtr,&etSafeHwndO); 

UnmapViewOf File((LPV0ID3 IpVicw); 

IpViewrNULL; 

IpLostrNULL- 

CloseHandle(s_hRleMap); 

return CloseHandle(f ); 

3 

long C£lobCtrl::MMFAddeiob(LPCT5ni SlobName, long Unitslndex, long Din:\2Size, long DimlSize, long ElementSize, long T 
ype, long Extra) 

\. 

int count ^TnisSlobSizeJ^eftOverCountj; 
long bitmaploc; 
BYTt* temp; 
//CString DebugStr; 
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long* MapPtr; 



RemoveNotify(GlobPtr,eetSafcHwndO); 

if (!Dim2Si2c) // if zero, make = 1 

DimZSize = 1: 
if (iDimlSize) 

DimlSize = 1: 

//DebugStr.Format("Looking for previous Slob: 7oS\n",&lobName); 
//LogError5tring(DebugStr); 

GlobPtr = (tSlob *)MMF&eteiobPtr( SlobName ); // first look for one by this name 

//DebugStr.Format("Prev Slob Ptr: 7oi\n",&lobPtr); 
//LogErrorString(DebugStr); 

If (eiobPtr) // found a previous, maybe can reuse space 

MMFErase£lob( SlobPtr); // clear it, maybe Next A vail can reuse it 

'Icount = DimZSize * DimlSize * ElementSize; // calc data size 

ilfhisSlobSize = (sizeof (tSlob) + count + 3) 4 -3:// add size of Slob and put on even 4-byte boundary 
,|&itmaploc = ThisSlobSize; 

l-^isSlobSize += sizeof (long) * lpView->nNotif yMaps; 

lll/DebugStr = "Looking for space for GlobXn"; 
'V/LogErrorString(DebugStr); 

lobPtr = MMFNextAvaiieiob( ThisSlobSize ); // get pointer to area of adequate size 

5|/DebugStr.Format("Found Space at: %i\n"Xlong)SlobPtr); 
^^/LogError5tring(DebugStr); 

while (iSiobPtr) // no room, make bigger 

{ 

if (ipView->Ref Count > 1) { 

ThrowError(CTL_E_PERA/lI55IONDENlED/'MMF can not be expanded. Too many connectionsAnClose all other appi 
cations and try again.")' 
return NULU 

} 

//Debug 

//DebugStr.Format("Resizing for %s\n",SlobName); 
//LogErr orStri ng(DebugStr ); 

//Debug5tr.Format("File5i2e Before = 7Di\n",m_FileSi2e); 
//LogErrorStringCDebugStr); 

//Linet>ebug = true; 

m„FileSize (TnisSlobSize + 4095); // calc new size of file 
m_FileSize &= -4095; // make size a multiple of 4096 

//Debug 
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//DebugStr.FormatrFileSizc After = 7oi\n",m„File5ize); 
//LogError5tring(DebugStr); 

MAAFCreatcO: I' unmap/remap view to increase size 

eiobPtr = MMFNextAvailSlob( TliisSlobSlze ); // get pointer to areo of adequate size 

//Debug 

//DebugStr.FormatC'SlobPtr After Remap: 7oi\n",SlobPtr); 
//LogErrorString(DebugStr); 

SetModif iedFlagO; 'f properties have changed 

} 

// setup member variables 
datcsize = count; 

// setup Slob data variables , . . r l ■ 

LeftOverCount = eiobPtr->size - ThisSlobSize; // subtract this size from size that might have been m 

f:&lobPtr->size = ThisSlobSize; 
^i$lobPtr->dim2 = (short)Dim25ize; 
^^lobPtr->diml = (shprt)DimlSize; 
^ISlobPtr->eitsize = (short)ElementSize; 
%iobPtr->type = (short)Type; 
-;^lobPtr->UOAA - Unitslndex; 
^''eiobPtr->extra = (short)Extra; 
SlobPtr->command =0; 

lobPtr->status = 0; 
j#lobPtr->ptrMap = 0; //bitmaploc; 
fltemp = (ByTB*)SlobPtr + bitmaploc; 
I if or (i=0;i<ipView->nNotif yMaps;i'H-) { 
r| //eiobPtr->notifymap[i] = 0; 
\^ MapPtr - (long*)temp + i; 
*MapPtr = 0; 

3 

SiobPtr->datasize= count; 

memset( eiobPtr->name, 0, eiob.NAME.LENSTH ); // clear name to zeroes 

strncpy( (char *)(SlobPtr->name), SlobName, &lob.N AME^LENSTR ); // copy name in 
if ((int)SlobPtr == ((int)lpView ^ lpView->NextAvaiI)) // if new Slob is ct end of file (not reusing ct 
her area) 

lpView->NextAvail += ThisSlobSize; // incr ne>ctavail pointer 
else // if bytes left over, make new [size] header for empty space left beyond this Glob 

^ if (LeftOverCount > (int)(sizeof (tSlob) + sizeof (long) * lpView->nNotifyMaps)) { 

((tSiob -)((int)SlobPtr + ThisSlob5ize)}->size = LeftOverCount; // put a [size] value past this Glob to 
reclaim space beyond 
} else { 

SlobPtr->size = TntsGlobSize + LeftOverCount; 

} 

} 

//DebugStr = "Slob successfully inserted. \n"; 
//LogErrorString(DebugStr); 
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SetModificdFlagO: 

return (int)GlobPtr: // returns Slob pointer 

} 

long C&lobCtrl::MMFAddSlobEx(LPCTSTR SlobName, LPCTSTTi UnitsName, long DimZSize, long DimlSize, long ElementSize, Ic 
ng Type, long Extra) 

t . •* 

int status ,uom; 
CString Units; 
int count; 
//CString temp; 

count = DimZSize * DimlSize * ElementSize; 
if (UnitsNome != NULL) 

Units = UnitsNome; 
else 

Units = ""; 

1 (Units.6etLengthO != 0) { 

uom = MMF&etSlobIx( Units ); 
p if (!uom) MMFAddSlob( Units, 0,0,0,0,-1,0); // add unit of measure first 

uom = MMFSeteioblxC Units ); 
|yse{ 

uom = 0; 

T 

Jktatus = MMFAddSlob( SlobName, uom, DimZSize, DimlSize, ElementSize, Type, Extro ); 

"is;? 

|?temp.Format("(7oi) AddSlobEx finished successfully for: %s\n",status,eiobName); 
lll^LogErrorStri ng(temp); 

Q - . 

^r?eturn status; - _ 

} 

BOOL C&lobCtrl::&etFirst&lobO 

i 

RemoveNotify(6lobPtr,&etSafeHwndO); 

GlobPtr = (teiob *)((int)lpView + lpView->Firsteiob); 

// He 9B0423 SetSlobName((LPCT5TR)Slob?tr->name); 

datasize = 61obPtr->datasize; // H5 980423 copied from SetSlobName 

m^eiobName = eiobPtr->name; // HS 9B0423 copied from SeteiobName 

SetModif iedFlagO; // cause properties to re-read 

if (&lobPtr->size) 

return true; 
return false; 

} 

300L CeiobCrr!::&etNexieiobO 
{ 

RemovcNotify{SlobPlT,SetSafeHwndO); 

SlobPtr = (tSlob '•)C(int)SlobPlT + eiobPtr->size); 

// HS 980423 Set&lobName((U'CTSTR)SlobPtr->name); 
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datosizc = GlobPtr->datasi2c: // H& 9B0423 copied from SctSlobName 
m.SlobName = GlobPtr->name; // H& 980423 copi&d from SetSlobNJamc 
SctModif icdFlagO: // cause properties to re-read 
if (&iobPtr->si2e) 

return true; 
return false; 

} 

void C(5lobCtrt::ErQSeO 
{ 

CSinglcLock LockMe(MMFLock); 
LockMe.LockO; 

RemoveNotify(&lobPtr,eetSafeHwndO); 
MMFEroseGlobC SlobPtr ); 
lockMe-UnlockO; 

} 

voig CSlobCtrl::MMFEraseO 

{ El 

.^I^SingleUck LockMc(MMFLDck); 

^tLckMe.LockO: 
Hi (IpView) 

intsize; 
int nmaps; 

In RemovcNotify(SlobPtr^etSafeHwndO); 

r| size = lpView->Si2e; 

Li nmaps = lpView->nNotif yMaps; 

memset( ipView, 0, size ); 

lpView->nNotifyMaps = nmaps; 

lpView->Next Avail = ipVlew->Firsteiob = sizeof ( tControl ) + 32*sizeof (long)*nmaps 
lpView->Si2e = size; 

3 

LockW.e.UniockO; 

} 

long C&lobCtri::&etNotifyList(long index) 
{ 

BYTE* temp; 
long* MapPtr; 

if (IpView) { 

if ((index < 0) 1 1 (index >= lpView->nNotifyMaps)) return 0; 
// TODO: Add your property handler here 
if (SlobPtr i& eiobPtr->ptrMap) { 

temp = (ByTE*)&lobPtr + SiobPtr->ptrMap; 

MapPtr = (long*)tcmp + index; 
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return •MapPtr; 

} 

} 



return 0; 

} 

void C&lobCtrl::5etNotifyList(long index, long nNcwValue) 

-{ 

// TODO: Add your property handler here 
SetModifiedFlagO; 

3 . 

BOOL CSlobCtrl::AddNotify(teiob* eiobPtr>{WND my.hWnd) 

{ 

int index; 

,,// add my hWnd to notify list 
'Jf{eiobPtr3{ 

Is index = flndHandle(myJiWnd); 7/ look for a previous entry 
% if (index != -1) T // if we find one. dont add another! 

fl 5etBitMap(&lobPtr.index); // RK 042498 

ffi return true; 

Si 

// didnt find one so make one 
O index = RndHandle(O); // look for first 0 entry 

^1= if (index ]= -1) { // make sure there is one available 

lpView->NotifyHandleIindex] = m>^hWnd; 

rtuMotify = "true; 

' ' CString Temp; 

Temp.Format("index = 7od Power(index) = 7od",indexPower(index)); 
AfxMe£sageBox(Temp); 

SetBitMap(elobPtr, index); // add ref to notify list 

return true; 

} 

} 

T>irowError(CTL_t_OUTOFMEMORy;'Out of memory in MMF. Can not register Slob for notification."): 

return false; 
J.- 
BOOL C&lobCtrl::RemoveNotify(teiob* eiobPtr, HWND my_hWnd) 

{ 

int index; 

// remove my hwnd from the notify list 
if(SlobPtr){ 

m.Notify = false; // H6 980423 clear notify flag in any case 

index = FindHandle(my_hWnd); // look for handle in list 
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if (index == -1) // not there! 

return true; // dont need to remove anything 

lpVicw->NotifyHandle[indcx] = 0; // remove entry from list 
MMFCIcarSlobBits(index): 

//eiobPtr->notify 4= {NOTTFYMASK " BitListlindex]): // remove ref from notify map 
return true; 

} 

return false; 

3 

BOOL ceiobCtrl::RemoveNotifyX(tSlob* SPtr, HWND my_hWnd) 
{ 

int index; 
long count: 

// remove my hwnd from the notify list 
if(eiobPtr){ 

index = FindHandle(my_hWnd); .// look for handle in list 

If (index == -1) // not there! 

ffl return true; // dont need to remove anything 

X: count = MMrClear&lobBit(&Ptr,index); 
H if (count == 0) { 

III lpVicw->Notif yHandlepndex] = 0; 
IS] m_Notify = false; 

'"•A 

1. } 

h^i return true; 

i 

I &turn false; 

int"cSlobCtrl::FindHandle(HWND my_hWnd) 
int i; 

for (i=0;i<m„MaxUnks;i-H-) 

if (lpView->NotifyHandle[i] == my_hWnd) return i; 

return -1; 

} 

long CSlobCtri::&etNotrfyHandle(short index) 

{ 

// TODO: Add your property handler here 
if ((IpView) && (index < m_AAaxUnks) && (index >= 0)) 
return (long)lpVieW">NotifyHandle[lndex3; 

return -1; 

} 

void CSIobCtrl::SetNotifyHandle(short index, long nMewValue) 
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// TODO: Add your property handler here 
SetModifiedFlagO; 

} 

long Power(int operand) 

{ 

int i; 

long value; 

if (operand == 0) { 

value = 1; 
}else{ 

value = 1; 

for(i=l;i<=operand;i++) 
value *=2: 

} 

return value; 

vciid CSIobCtrl::5endNotify(teiob* SiobPtr, tControl* IpView^hort IDProp^hort PropValue) 

fp// TODO: Add your dispatch handler code here 

Writ i,maplndex^itlnde)c 

^^iht results; 

'iHWND mHwnd; 

JLt&lobMsg msg; 

^l&ng* tempmsg; 

jilpng SlobID; 

I |int count; 

^-liDng map: 

count = 0; 

// set up message to send for notify 
msg.PropID = IDProp; 

msg. Value = PropValue; ' 

tempmsg = Clong*)<5(msg; 

SlobID = Clong)&lobPtr - (long)ipView; 

mHwnd = SetSof eHwndQ; 

if (m_AutoNotify) { 

if (eiobPtr && SlobPtr->ptrMap) { 

for (mapIndex=0;mapIndex<lpView->nNotifyMaps;mapIndex++) { 
map = SetNotif yList(mapIndex); 
if (map != 0) count++; 

for (bitlndex = 0;bitlndex<32;bitlndex++) { 
i = maplndex*32+brtlndex; 

if ((map A (l«bitlndex)) Ai (mHwnd != lpView->NotifyHandle[i])) { 

results r ::PostMessage(lpView->NotifyHandle[il,USER_VALUECHAN5ED*tempmsg,GlobrD); 
if (Iresults) // if the handle is invalid then remove it from the list 
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RemoveNotify{eiobPtrJpVicw->NotifyHandlc[i]); 

} 

3 

} 

if (count == 0) &bbPtr->ptrMap = 0; 

} 

} 

3 • 

void ceiobCtrl::OnFinalRclcaseO 

{ 

// TODO: Add your specialized code here and/or call the base class 

RemoveNotify(SlobPtr>&etSafeHwndO); 

COlcControt::OnFinalReleaseO; 

3 

long ceiobCtrl::OnValueChan9ed(UINT IParamiONS rParanr\) 

.;/yunpack IParam for PropID and Value 
^fSlobA^* msg; 

■ ul ■ 

, msg r (t&lobMsg*)<ilParam; 

rjgreChange(msg->PropID,msg->Value,rParam); 
^#kturn 0; 

Si 

shWft CGlobCtrl::&etByteValueO 

{ I 

^1!^ TODO: Add your property handler here 

•i^ returns a byte (short was the only option in the wizard ;) 

(eiobPtr) 
' return SlobPtr->data.Bytc[03; 
return 0; 

,} 

void CeiobCtrl".SetByteValue(short nNewValue) 

{ 

// TODO: Add your property handler here 
if ((SlobPtr) && !ClpView->fteQdOnly)) { 

eiobPtr->dota.Byte[0] = (ByTc)nNewValue; 

// notify controls on list of change 
//if (GlobPtr->notify !=0) 
SendNlotify(eiobPtr,lpViewJDVALUE,0); 

} 

SetModifiedFlagO^ 

} 

short CeiobCtrl-SetAbValueClor^ index) 

{ 

// TOOO: Add your property handler here 
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if ((SlobPtr) &4 (index < eiobPtr->datasi2e)) 

return 6lobPtr->dctc.Byte[index]; 
return 0; 

} 

void ceiobCtrl::SetAbValuc(long index, short nNewValue) 
{ 

// TODO: Add your property, handler here • • 
if (!(lpVicw->ReadOnly)) 

if ((GlobPtr) && (index < eiobPtr->datasi2e)) { 
elobPtr->data.Byte[index] = (ByTE)nNewValue: 

// notify controls on list of change 
/yif (&lobPtr->notify 1=0) 
SendNotify(SiobPtrJpViewJDVALUE,0); 

} 

y/SetModif iedFlagO; -RK not needed for non persistent properties 

} 

Ic^ CelobCtrl::&etLValueO 

TODO: Add your property handler here 
Mf (eiobPtr) 

© return eiobPtr->datQ.Long[0]; 

ilfeturn 0; 

vdid C&lobCtrl::SetLValue(long nNewValue) 

iW TODO: Add your property handler here 
PI ((eiobPtr) && !(lpView->ReadOnly)) { 
ll if (&iobPtr->eltsi2e ==4) 

eiobPtr->data.Long[0] = nNewValue; 

// notify controls on list of change ; 
//if (eiobPtr->notify !=0) 
SendNotify(eiobPtr,lpViewJDVALUE,0): 

} 

//SetModif iedFlagO; 

} 

long CSlobCtrl::SetAlValue(long index) 

{ ■ 

// TODO: Add your property handler here 

if ((SlobPtr) && ((index * sizeof (long)) < eiobPtr->datcsi2e)) 

return &lobPtr->data.Long[index3; 
return 0; 

} 

void CSIobCtrl".SetAIVolue(lon9 index, long nNewValue) 

{ 

// TODO: Add your property handler here 
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if (l{lpView->ReadOnly)) 

if (CeiobPtr) && ((index* sizeof (long)) < eiobPtr->datQSize)) { 



GlobPtr->datcLLongIindcx] = nNewValue; 

// notify controls on list of change 
//if (&lobPtr->notify ]=0) 

SendMotify(SlobPtr;lpViewJDVALUE.O); 

} 

//SetModifiedFlagO; 

} 

short ceiobCtrl::&etIValucO 
{ 

// TODO*. Add your property handler here 
if (SlobPtr) 

return &lobPtr->data.Short[0]; 
return 0; 

} 

voiid ceiobCtrl::SetIValue(short nNewValue) 

{i 

4?/ TODO: Add your property handler here 
I'lif ((eiobPtr) && !(lpView->ReadOnly)) { 
m if (eiobPtr->eltsize >= 2) 
til eiDbPtr->data.ShortIOJ = nNewValue; 

// notify controls on list of change 
^ //if (&lobPtr->notify !=0) 
:;H SendNotify(eiobPtr,lpViewJDVALUE,0); 

ii ■ 

S)?/SetModifiedFlagO; 

}p 

short CSIobCtrl::&etAiValue(long index) 
{ 

y/ TODO: Add your -property handler here 

if ((SlobPtr) &i ((index* sizeof (short)) < SlobPtr->datasi2e)) 

return SlobPtr->data.Shortrindex]; 
return 0; 

} 

void CSlobCtrl::SetAiValue(long index, short nNewValue) 

{ 

// TODO; Add your property handler here 
if {!(lpView->ReadOnly)) 

if ((eiobPtr) && ((index * sizeof (short)) < &lobPtr->datasize)) { 
(5lobPtr->data.Short[index] = nNewValue; 

// notify controls on list of change 
.//if (eiobPtr->notify !=0) 
SendNotify(SlobPtr,lpViewJDVALUc.O); 

} 
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//SetModifiedFlagO; 
} 

long C(51obCtrl::&etVolueSD(long n) 
{ 

// TODO: Add your property handler here 

if (SlobPtr) 

{ 

if ((n * SlobPtr->eltsize ) < eiobPtr->datasi2e) 
{ 

switch (eiobPtr->eltsi2e) 
{ 

case 4: return &lobPtr->data.Long[n3; 
case 2: return eiobPtr->dato.Short[n]; 
default: return eiobPtr->datQ.Byte[n3; 
3 

3 

3 

i*«turn -1; 

vo'8j ceiobCtrl::SetValueSD(long n, long nNewValue) 

{ t 

W/ TObO: Add your property handler here 
til (l(lpView->ReadOnly)) 

if (SlobPtr) 

9^ ■ ■ 

:!! if {( n * elobPtr->e1tsi2e ) < eiobPtr->datosi2e) 

™ { 

•f4 switch (eiobPtr->eltsize) 

case 4: SlobPtr->data.Long[n] = nNewValue; 
break; 

case 2: eiobPtr->data.ShortIn3= (short)nNewValue; 
break; 

default: eiobPtr->data.ByteM = (BYTE) nNewValue; 
break; 

3 

// notify controls on list of change 
y/if (61obPtr->notify !=0) 

5endNotify(&lobPtrJpViewJDVALUE,0); 

3 

3 

3 

//SetModifiedFlagO; 

3 

BS'Ui CGIobCtrl::&etStrValueO 
{ 

CString strResult; 
if (eiobPtr) 
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strResult * (GlobPtr->datQ.Bytc); 
// TODO: Add your property handler here 

return strRcsult.AllocSysStringO: 

} 

void CeiobClTJ::SetStrValuc(LPCTSTR IpszNewValue) 
{ 

// TODO: Add your property handler here 
y/CString strResult(lpszNewValue): 
int i; 
int size: 

if (!(lp View->ReadOnly) &i {SlobPtr)) { 
size - strlen(lpszNewValue); 
f or(i=0;{i < size) && (i < (eiobPtr->datasize-l));i++) { 
eiobPtr->data.Byte[i] = lpszNewValuc[i]; 

} 

^lobPtr->data.Byte[i]= '\0'; 

fii // notify controls on list of change 
i //if (eiobPtr->notify !=0) 

5endNotify(eiobPtr jpViewJDVALUE,0); 

111 

^y/5etModifiedFlagO; 
y/mk CSIobCtrl::Insert(long value, long index) 

{Si! 

\JJ TODO*. Add your dispatch handler code here 
LPBYTE source; 
LPBYTc dest; 
LONG size; 
long datocount; 

// exit if index is beyond range or Slob isnt setup 
if (ISlobPtr) return; 

datocount - SlobPtr->diml * SlobPtr->dim2 * eiobPtr->eltsizc; 
if (((index*&lobPtr->eltsize) >= datocount) 1 1 (index < 0)) 
return; 

if ((SlobPtr) ii !CipView->ReadOnly)) { 

source = 5lobPtr->data.Byte + index*SlobPtr->eltsize; 

dest = source + &lobPtr->eltsize; 

size = datocount - (index+l)*SlobPtr->eitsize; 

//move data up (memmove handles overlapping memory regions) 
memmove(dest^ource^ize); 

.//insert new date element 
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switch (eiobPtr->cltsi2e) 
{ 

case 4: GlobPtr->datQ.Long[indcx] = value; 
break 

case 2: GlobPtr->datQ.5hort[index]= (short)value; 
break; 

default: GlobPtr->data.Byte[index] = (BYTE) value; 
break; 

} 

// notify controls on list of change 
//if (&lobPtr->notify !=0) 

SendNotify(GlobPtrJpViewJDVALUE,0); 

) 



BSTR CeiobCtrl::&etFullPathO 
{ 

CString strResult; 

W TODO; Add your property handler here 

nitrResult = m^FuIIPath; 

Cisturn strResult.AllocSysStringO; 

pi: 

vo'i C&lobCtrl::SctFullPath(LPCTSTR IpszNewValue) 

{J 

// TODO: Add your property handler here 

"setModifiedFlagO; 

3111 

\m§ C&lobCtrl:;Rcsi2eMMF(lonQ NewSize) 

■{ 

// TODO: Add your dispatch handier code here 
return MWiFRemapViewCNewSize); 

} 

long C&lobCtrl::SyncFileSi2eO 

i 

if (m_RleSi2e != lpVlew->Si2e) { 

// mapviews are not syncronized so remap 
MMFRemapView(lpView->Si2e); 

} 

return 0; 

} 

void LogErrorStrin9(CString errstr) 

{ 

if (!LOe_ERRORS) return; 
FILE «f; 

f = fopen("C:\\eiobErr.Log","a"); 
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fwritc(errstr,l,crrstr.6ctLengthO,f); 
fclosc(f); 

} 



void CSIobCtrl::SendNotifyX(short NotifylD = 0, short Value = 0) 
{ 

// TODO: Add your dispatch handler code here 

int t^mapIndexjDitlndex; 
int results; 
HWND mHwnd; 
t&lobA^sg msg; 
long* tcmpmsg; 
long SlobID; 

I J set up message to send for notify 

msgPropID = NotifylD; 

fmsg.Value= Value; 

^Icmpnxsg = (long*)(imsg; 

^SioblD = (long)SlobPtr - (bng)lpView; 

'mHwnd = SetSaf eHwndO; 

m ■ 

!|(&lobPtr){ 

J' for (mapIndex=0;mapTndex<lpView->nNotifyMaps;mapIndex++} { 
p for (bitlndex = 0;bitlndex<32;bitlndex++) { 

i = maplndex*32+bitlndex; 
111 . if ((SetNotifyList(mapIndex) 4 (l«bitlndex)) Aii (mHwnd b |p View->NotifyHandle[i])) { 
ill results = ::PostMessage(lpView->NotifyHandlelT|AiSER_VALUECHAN&ED *tempm^ 

CI if (iresults) // if the handle is invalid then remove it from the list 

i-^ RemoveNotify(eiobPtrJpView->NotifyHandleIi]); 

} 

} 

} 

} 

3 

BOOL CeiobCtrl::&etAutoScndNotifyO 

{ 

J I TODO: Add your property handler here 
return m_AutoNotif y; 

} 

void C&lobCtrl::5etAuto5endNotify(BOOL bNewValue) 
{ 

// TODO: Add your property handler here 
m_AutoNotify = bNewValue; 

SetModifiedFlagO; 

} 
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BOOL C&lobCtrl::OnSetExtcnt(LPSIZEL IpSizcL) 
{ 

// TODO: Add your specialized code here and/or call the base class 
return false; /ycOlcControl::OnSetExtcnt(lpSi2eD; 



long CSlobCtrl::6etNHandlesO 

// TODO: Add your property handler here 
return m.MoxUnks; 

} 

void C&lobCtrl::SetNHandlesCbng nNewValue) 
{ 

\1/ TODO; Add your property handler here 

''XI 

S^etModifiedFlegO; 

\^ CSlobCtrl::6ctNNotifyMapsO 

!/ TODO: Add your property handler here 
if (IpView) 

return ipView->nNDtifyMaps; 

111 

I iieturn 0; 

30 . 

Lb ■ ■ - . 

t; 

void C&lobCtrl::SetNNotifyMaps(long nNewValue) 

{ 

// TODO: Add your property handler here 
SetModifiedFlagO: 

J 

BOOL CSlobCtrl::FormatMMF(long NotifyLimit) 
{ 

// TODO: Add your dispatch handler code here 
int K 

if(lpView){ 

if (lpView->ftef Count > 1) { 

ThrowError(CU„E_PEftMISSIONDENIED;Sharin9 violation. Can not reformat MMF."); 
return false; 

} 
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if (NotifyUmit < 32) NotifyLimit = 32; 
X = (NotifyUmit-l)/32 * 1; 
lpVicw->nNotifyMaps = x; 
m MoxUnks = x*32; 



m^FileSizc *= {m.MaxLinks*si2eof (long) + 4095); J I calc new size of file 
nuFileSizc *-4095; // make size a multiple of 4096 

MMFErascO; 

if (MMFCreateO == OK) return TRUE; 

3 

return FALSE; 

} 

long CGlobCtrl::eetSlobSizeO 
{ 

// TODO: Add your property handler here 
Cif (SlobPtr) return &lobPtr->size; 
@eturn sizeof (t&lob); 

vwa C&bbCtri::SetSlob5izc(long nNewValue) 

V/ TODO: Add your property handler here 

f\ 

ISetModifiedFlagO; 

Icmg CSlobCtrl::eetRef CountO 

// TODO: Add your property handler here 
if CIpView) return lpView->Ref Count; . 

return 0; 

} 

void CSlobCtrl::5etRef Countfiong nNewValue) 

{ 

// TODO: Add your property handler here 
SetModifiedFlagO; 

3 

BSTR CSIobCtrl::eetVersionO 
{ 

CString strResult; 

// TODO: Add your property handler here 

strResult = VERSION; 

return strResult .AilocSysStringQ; 

3 
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void C&lobClTl::SctVcrsion{LPCTSTR IpszNewVduc) 

{ 

// TODO: Add your property handler here 
SetAAodifiedFlagO; 

} 

BSTR CSlobCtrl::&etUOM0 
{ 

CStriiig strResult; 

// TODO: Add your property handler here 
tSlob* temp; 

if ((SlobPtr) && (&lobPtr->UOM) 44 IpViewX 
temp = (tSiob*)C(int)lpView + SlobPtr->UOM); 
strResult = tcmp->name; 

} else{ 

n strResultr""; 

i 

m 

#eturn strResult.AllocSysStringO' 

m 

vMh C&lobCtri::SetUOA\CLPCT5'm IpszNewValue) 

{ / 

TODO: Add your property handler here 
Iht uom; 

111 

i;^om = MMF6eteiobIx(lpszNewValue); 
iif (elobPtr) eiobPtr->UOM = uom; 
l^ctModifiedFlagO; 

} 

B5TR CeiobCtrl::&etUnkO 
{ 

CString strResuit; 

// TODO: Add your property handler here 
t&lob* temp; 

if ((SlobPtr) 44 (SlobPtr->link) 44 IpViewX 
temp = (t&lob*)((int)lpVicw + SlobPtr">link); 
StrResuit = temp->name; 

} else { 
StrResuit = 

} 

return strResult.AllocSysStringQ; 

} 

void CSlobCtrl::SetLink(LPCTSTR IpszNewValue) 




{ 

// TODO: Add your property handler here 
int link; 

CString newvat; 

if (IpszNewValue != NULL) 

newval = IpszNewValue; 
else 

newval = ""; 

link = MMF&etSlobIx(newvQO; 
if (elobPtr) SlobPtr->link = link; 
SetModifiedFlagO; 

} 

long ceiobCtrl-.IndexOf (LPCT5TR elobName) 
{ " 

// TODO: Add your dispatch handler code here 
rfong index; 

undex = MMF&etGlobIx(&lobName); 
-If (lindex) index = -1; 
iHfeturn index ; 

■}| 

BO'bl C&lobCtrl::&etNotifyOnChange(LPCTSTR GlobName) 

T/ TODO: Add your property handler here 
Jl&lob* SPtr; 
HWND hWind; 
nteng index; 
|lang maplndex; 

long bitlndex; 

BOOL ret; 

BYTE* temp; 

long* MapPtr; 

hWind = SetSaf eHwndO; 
ret = false; 

if (HpView) return false; 

if (GlobName[0] == *\0*){ 

SPtr = SlobPtr; 
} else { 

SPtr = (t£lob*)MMF&etSlobPtr(SlobName); 

} 

if (SPtr && &Ptr->ptrMap) { 
index = FindHandle(hWind); 
if (index !=-!){ 

maplndex = index/32; 
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bitlndex = index - maplndcx*32; 
temp = (By7t*)SPtr * ef>tr->ptrMap; 
AAapPtr = (long*)temp ♦ maplndcx; 
if ("MapPtr & (l«bitlndex)) ret = true; 

} 

} 

return ret; 

} 

void CSl6bCtrl::SetNotifyOnChan9e{LPCTS"m SlobName, BOOL bNewVaiue) 

{ 

// TODO: Add your property handler here 

BOOL ret; 
HWND hWind; 
t&lob* ePtr; 

Of (eiobName[0]==^0'K 
i|5 ePtr = eiobPtr; 
idse{ 

4° GPtr = (tSlob*)MMFeeteiobPtr(eiobName); 

I 

'^^ CSingleLock LockMe(&lobLock); 

if(!AmbientUserModeO)-[ 
■|j ThrowError(CU_E_PERMISSIONDENlEE);'This property can only be set at runtime." ,0); 

'm return; . 



LockMelockQ; // waits infinitely for resource to be available. 

// can use a timeout value as a parameter (ms) if desired. 

hWind = SetSaf eHwndO; 

if (bNewValue) { 

ret = AddNotify(ePtr,hWind); 
} else { 

ret = RemoveNotifyX(ePtrJiWind); 

} 

LockMe.UnlockO; 

} 



} 



SetModifiedFlogO; 



long CSIobCtrl::SetVisibleO 
{ 
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HRESULThrcsuh-; 

IDispatch FAR* pdisp = (IDispatch FAR*)NULL: 
DISPID dispid; 

OLECHAR FAR* srVisible = L"Visible": 
OLECHAR FAR* szTobStop = L'TobStop"; 
DISPP ARAMS disparams; 
DISPID .MyDispid= DISPID.PROPERTYPUT; 

VARIANTAR6 tnyarg[l]; 



disparams.rgvorg = myarg; 

disparams.rgvarg[0].vt = VT.BOOL; . ■ 

disparams.rsvar^[0].boolVal = FALSE; //MFC help says this fieldname is actualy bool ... yeo nght! 

dispapanis.rgdispidNamedArgs = AMyDispid; 
disparams.cArgs = 1; 
dispapams.clvlamedArgs = 1; 

pdisp = SetExtendedControlQ; 
Chresult = DISP_E_UNmOWNINTERFACE; 

riif(pdispy{ 

W //set visible to false 

■1= hresult = pdisp->6etIDsOf Names(nD_NULL/iszVisibleaX.OCALE_USER_DEFAULT,idispid); 
if Chresult == SOK) { 

K? hresult = pdisp->Invoke{dispid JID_IMULL J.OCAL£_USER_DEFAULT,DISPATCH_PROPERTyPUT. 
Adisparanxs>IUU-,NULI>IULL); 

SI ^ 

l,^ //set TabStop to false 

% hresult = pdisp->&etIDsOf Names(IID_NULL,&S2TabStop;lJ,OCALE_USER_DEFAULT,idispid); 

II St = p^^StoMdispid JIDJN1U1XJ,0CALE_USERJ)EF 
p idisparams>IUU.,NULL^lULi:); 

pdisp->RelecseO^ 

} 

return (long)hresult 

} 
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#if _MSC_VER >= 1000 
#pragmo once 

#cndif //_WiSC_VER>=1000 

// Glob.h ■• main header file for GLOB.DLL 

#if !def ined( _AFXrrL_H_ ) 

#error include 'af xcTl.h' before including this file 

#endif 

#include "resource.h" // main symbols 

II C&lobApp : See Slob.cpp for implementation. 

#i-efine eiob_NAME_LENGTH 16 
#ifefine DEF_NOTTFYMAPS 8 
#ikfme NOTIFYMASK -1 

#define OK , ^ ,^ ^ 

#Cifine ERR_CANT_CREATE_FILE_MAPPIN6 -2 

S^Jlfine ERR_CANT_MAP_VIEW_0F_FILE -1 

#aifine ERR_INVALID_elob_R£FERENCE -3 

#|i,efine ERR.INVAUDFILENAME 999 

##?aifine MEM_ALLOC 4096 

^4efine iWvAX_STKCN6 256 

^f.ne MMF_INTERC0M_MW.F _TEXT("MMF.INTtRCOM") 

// aA£ VALUES TO USE IN MA\FeETeiobPARAM AND A^MFSETSlobPARAM 
// USE ACTUAL BYTE OFFSETS FOR FASTER ACCESS 

#define eiob_DIA/»2 4 

^define Glob_DIAM 6 

#define £lob_£LTSIZE 8 

#define i51oD_TyPE 10 

#define Slob_PARAM 12 // addl date 

#define Slob.DATASIZE 14 // addl 

typedef struct 

{ 

long Size; 
int FirstSlob; 
int NextAvait; 

int Readonly; // is MMF Readonly right now? 
int Ref Count; 
int nNotifyMaps; 

int Data[ 10 ]; // spare u 
HWND NotifyHandle[03; // hwnd for windows to notif)' o, changes 

} tControl; 
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typedef struct 
{ 

int size; 

BYTE name[ &lob.NAME.LEN5TH ]; 

short dim2; // 2nd dimension 

short diml: // 1st dimension 

short eltsize; // byte size of each array element 

short type; // type of array element 

short extra; // addl data. Waveforms use for Actual Length, etc. 

short command; // command to the device 

short status; // status from the device 

short datasize; // add! 

long UOWt; // unit of measure link, if any 

long link // offset of parameter Slob Jf any ^ x l. j 

//long notifymap[DEF_NOTIFyMAPS]; // bitmap used to indicate who to notify if changed 

long ptrMap; 
union 

{ 

long l-ong[0]; 
[f^ short Short[03; 
m BYTE ByterO]: 
1 data; 

tjlledef struct 

{ ^1 

"jhort PropID; 
'Tihort Value; 
} l^lobMsg; 



class CelobApp : public COleControlModule 

public! 

BOOL InitlnstanceO^ 
int ExitlnstanceQ; 

3: 

extern const SUID CDECL _tlid; 
extern const WORD _wVerMajor; 
extern const WORD _wVerMinor; 



//{{AFX_INSERT_LOCATTON}} .i. ■ i- 

// Microsoft Developer Studio will insert additional declarations immediately before the previous ime. 

#endif //!defined(AFX,SLOB_H_5F20DZDC_7BBC_llD1.9A9B.020701045A6B_INCLUDED) 
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// Copyright 1998, 1999 SPX Corporation 

// SiobPpg.cpp : Implementation of the CGlobPropPage property page doss. 

#include "stdafx.h" 
#include "eiob.h" 
#include "SlobPpg.h" 

#ifdef_DEBU6 

#def ine new DEBUe_NEW 

#undef THIS_FILE 

static char THIS_FILEO = _FTLE__; 

#endif 



I/APLEAAENT_DyNCREATE(CSlobPropPage, COlePropertyPage) 

/i/iiiiiiiiiiiiiiiiiiiiiuuiiiiiiiii/iiiniiiiiN/iiiiiiniiiiiiiiiiiiiinii 

J/'^zssoge. map 

1.0 

B5|lN_MESSASE_MAP(C&lobPropPaQe, COlePropertyPage) 
,i^'{{AFX_MSe_MAP(ceiobPropPage) 

W NOTE - ClassWizard will add and remove message map entries 
# DO NOT EDIT what you see in these blocks of generated code I 
-/>}}AFX_WiS6_MAP 
EI^tl_MESSAeE_MAPO 

//li///////////////////////////////////////////////////////////////////''^//^/ 

//initialize class factory and guid 

IM|lEMENT_OLECREATt_EX(C&lobPropPage, "SLOB.SIqbPropPage.l", 
bx5f 20d2d7, 0x788c, Oxlldl, Ox9a, Ox9b, 0x2, 0x7, 0x1, 0x4, Ox5a, Ox6b) 

///////////////////////////////////////////////////////////////////////////// 
// CSlobPropPage::CSiobProppQgeFactory::UpdatcRegistry - 
// Adds or removes s>'Stem registry entries for C5lobPropPage 

BOOL C&lobPropPage::C&lobPropPageFactory::UpdatcRegistry(BOOL bRegister) 

{ 

if (bRegister) 

return AfxOleRegisterPropertyPageClQSs(Afx£etInstanceHandleO, 
m.clsid, IDS_SLOB_PPe); 

else 

return AfxOleUnregisterClass(nrt_c!sid, NULL); 

} 

///////////////////////////////////////////////////////////////////////////// 
// C&lobProp?age::CGiobProppQge - Constructor 
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CeiobPropPage-.cebbPropPogeO : 

COlcPropcrtypQge(IDD,IDS_eLOB_PP6_CAPTION) 

{ 

//{{AFX_DATA_lNIT(CGlobPropPage) 

// NOTE: ClassWizard will odd member initialization here 

// bO NOT EDIT what you see in these blocks of generated code I 

//}}AFX_DATA_INIT 

} 

iiiiiiuiiiiiiiiiiiiiiiiiniiuiiiiuuiiiiiiiiiiiiiiiiiiiiiiifnii'"""^" 

// CGlobPropPage-.itJoDataExchange - Moves data between page and properties 

void ceiobPropPage::DoDataExchange(CDataExchange* pDX) 
{ 

//{{AFX_DATA_MAP(CSl6bPropPage) 
// NOTE: ClassWizard will odd bDP, DDX, and t>C>V calls Tiere 
// DO NOT EDIT what you see i n these blocks of generated code ! 
fy|/})AFX_DATA_AAAP 
il&DP PostProcessing(pDX); 



//HsiobPropPage message handlers 
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// Copyright 199B, 1999 SPX Corporation 

#if ldefined(AFX_&LOBCU_H_5F20D2E4_78BC_llDl_9A9B_020701045A6B_INCLUDEDj 
#defineAFX_SLOBCU_H_5F20D2E4_78BC_llDl_9A9B_0E0701045A6B_INCLU[>ED_ 

#if _M5C_VER >= 1000 
#pra3ma once 

#endif // _/lASC_VER >= 1000 

// SlobCtLh : Declaration of the CGIobCtrl ActiveX Control class. 

IIIIIIIIIIIIIIIIIUIIIIJIIIIIIIIIIIIIIIIIIIIIIIIHIIIIIIHIIIIHHII""IHII 
II C&lobCtrl •• See SlobCtl.cpp for implementation. 
#includc <afxmt.h> 
#include <memory.h> 
#include <string.h> 

#define ID VALUE 1 
#def ine IDSTATUS 2 
*idef ine IDCOMMAND 3 
#def ine VERSION "1.2i" 

!» 

clips CSIobCtrl •• public COleControl 

{ N 

fS.ECLARE_DYNCREATE(CelobCtrI) 

111 

//'ifionstructor 
pyblic". 
^ifsiobCtrlO; 

til 

/^•j^verrides 

fijj ClassWizard generated virtual function overrides 
j4/{{AFX_VIRTUAL(CSlobCtr!) 
public: 

virtual void OnDraw(CDC* pdc, const CRectd rcBounds, const CRecti rclnvalid); 

virtual void DoPropExchangeCCPropExchange* pPX); 

virtual void OnResetStatcQ; 

virtual void OnFinalReleaseQ: 

virtual BOOL OnSetExtent(LPSIZEL ipSizeL); 

//}}AFX„VIRTUAL 

// Implementation 
protected: 
-CSbbCtrlQ; 

BEGIN.OLEFACTORy(CSlobCtrl) 

virtual BOOL VerifyUserUccnseQ; 

virtual BOOL fietUcenseKeyCDWORD^BSTR FAR*); 
El\lD_OLEFACTORy(C51obCtrI) 

DECLARE_OLETYPELJB(CSiobCtrI) // fietTypeInf o 
DECLARE.PROPPA&ElDS(CeiobCtrl) // Property page IDs 
DECLARE_OLECTLTyPE{C£lobCtrI) // Type name and misc status 
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// Message maps 

//{{AFX_MS£{CeiobCtrI) 
//)}AFX.MS& 

DECLARE.MESSASE.MAPO 

// Dispatch maps 

//{{AFX_DISPATCH(ceiobCtrI) 
af x_msg long feetSloblndexQ: 
af x_msg void SetSlobIndex(long nNewValue); 
afx_msg long SetDimlSizeQ; 
af x_msg void SetDimlSi2e(long nNewValue); 
afx_msg long SetDimZSizeQ; 
af x_msg void 5etDim25izc(long nNewValue); 
af x_msg long SetElementSizcQ; 
afx_msg void SetElcmcntSizeCiong nNewValue); 
afx_msg long SetTypcQ; 
afx_msg void SetType(long nNewValue); 
s=af x_msg long SetExtraQ; 
Jf x_msg void SetExtra(long nNewValue); 
fgfx_msg long SetDctaSizeQ; 
|ifx_msg void SetDataSizeClong nNewValue); 
^'df x„msg BSTR GetGlobNameQ; 
ilfx_msg void Set&lobName(LPCT5TR ipszNewValue); 
^llfx_msg long SetPileSizeQ; 
'clfx_msg void SetFileSize(long nNewValue); 
^;afx_msg BSTR SetFileNameQ; 
^|rfx_msg void SetfileName(LPCTSTR IpszNewValue); 
niifx_msg long SetStatusQ; 
jc|fx_msg void 5et5tatus(long nNewValue); 
^£^x_msg long fietCommandQ.' 
£f x_msg void 5etCommand(long nNewValue); 

afx_msg long SetSlobPtrQ^ 

afx„msg void 5et5lobPtr(long nNewValue); 

afx_msg long feetDataPtrQ: 

of x_msg void 5etDataPtr(long nNewValue); 

afx_msg long SetAvailSizeQ; 

afx_msg void SetAvailSize(iong nNewValue); 

af x_msg BOOL SetReadOnlyMMFC); 

afx.msg void SetReadOnlyMMF(BOOL bNewValue); 

of x_msg BOOL SetNotifyQ; 

af x_msg void 5etNotify(BOOL bNewValue); 

afx_msg short SetByteValueQ; 

cfx_msg void SetByteValue(short nNewValue); 

afx_msg long SetLValueQ; 

afx_msg void 5etLValue(long nNewValue); 

afx_msg short SetlValueQ; 

cfx_msg void SetIValue(short nNewValue); 

cf x_msg BSTk SetStrValueQ: 

afx_msg void 5et5trValue(LPCTSTR IpszNewValue); 

afx_msg BSTk SetFuliPathO: 

cfx_msg void 5etFuIIPath(LPCTSTR IpszNewValue); 



af x_msg BOOL SctAutoScndNotifyQ; 

of x_msg void 5etAuto5cndNlotify(BOOL bNewValue); 

af x_msg long &ctNHandlesO; 

af x_msg void SetNHandles(long nNewVolue); 

af x_msg long SetMNotifyMapsQ; 

af x_msg void SctNNotifyMaps(long nNewValue); 

afx_msg long SetSlobSizcO; 

afx_msg void 5et&iob5i2c(long nNewValue); - 

afx_msg long &etRef CountQ; 

afx_nisg void SetRef Count(long nNewValue); 

afx_n\sg B5TR SetVersionQ; 

afx_msg void 5etVersion(LPCTSTR IpszNewValue); 

af x_msg BSTR SetUOMO; 

af x_msg void SetUOMCLPCTSTR IpszNewValue); 

afx_msg BSTR SetLinkQ; 

af x_n\sg void SetLink(LPCTSTR IpszNewValue); 

af x_msg long MMFCioseQ; 

afx_msg long MMFAddSlobCLPCTSTR GlobName, long Unitslndex, long DimZSize, long DimlSizc, long ElementSize, long 
Ijpe, long Extra); 

n|;afx_msg long MMFAdd&lobEx{LPCTSTR SlobName, LPCTSTR UnitsName, long Din\2Size, long DimlSize, long ElementSize, 

Type, long Extra); 
.Icf x_nisg BOOL SetFirsteiobQ; 
Kfx_msg BOOL SetNextSlobQ; 
i.=.afx_msg void EroseQ; 
5"|ifx_msg void MMFEroseQ; 

^iif x_msg void Insert(long value, long index); 
"i^pf^^J^ long ResizeMMF(long NewSize); 

'pxfx_n\sg void SendNotif yX(short NotifylD, short Value); 

rjof x_msg BOOL FormatMMF(long NotifyUmit); . 

i jpf ^-"^9 IndexOf (LPCTSTR SlobName); 

rcifx_nisg long SetValueClong DimZ, long Diml); 

ir.afx_msg void SetValue(long Dim2, long Diml, long nNewValue); 

afx_msg long &etNotifyHandle(short index); 

cfx_msg void SetNotifyHandle(short index, long nNewValue); 

af x_msg short &etAbValue(long index); 

of x_msg void SetAbValueClong index, short nNewValue); 

afx_msg long SetAlValueClong index); 

afx_msg void 5etAlVaiue(long index, long nNewValue); 

afx_msg short SetAiValue(long index); 

af x_msg void SetAiValue(long index, short nNewValue); 

afx_msg long &etValue5D(long n); 

af x_msg void SetValueSD(long n, long nNewValue); 

afx_msg long SetNotifyList(long index); 

af x_msg void 5etNotifyList(long index, long nNewValue); - 

af x_msg BOOL &etNotifyOnChange(LPCTSTR SlobName); 

cf x_msg void SetNotif yOnChange(LPCTSTR SlobName, BOOL bNewValue); 

//}}AFX_DISPATCH 

DECLARE_DISPATChLMA?0 

afx_msg void AboutBoxQ; 

cfx_n\sg long OnValueChanged(L/INT,LONS); 
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// Event maps 

//{{AFX„EVENT(C&lobCtrl) 

void FireChangcCshort PropID, short Value, long SendID) 

{FireEvent(eventidChange,EVENT.PARAM(VTS.I2 VTSJLZ VTSJLA). PropID, Value, SendID):} 

//}}AFX_EVENT 
DECLARE.EVENT^MAPO 

// Dispatch and event IDs 
public 
enum { 

//{{AFX_DISP_ID(CeiobCtrl) 
dispidSloblndex = IL, 
dispidDimlSize = 2L, 
dispidDimZSize = 3L. 
dispidElementSize = 4L, 
dispidType = 5L, 
dispidExtra = 6L, 
dispidDataSize ='7U 
illispidGlobName - Bl, 
taispidFileSi2e= 9U 
^SispidFileName = lOL, 
;SispidStatus = IIL, 
■^jispidCommand = 12L, 
^lispidSlobPtr = 13L, 
;i]ispidDataPtr = 14L, 
dispidAvailSize = 15L, 
fdispidReadOnlyMMF = 16L, 
JispidNotify = 17L, 
lyispidVaiueB = 18L, 
i|iispidVaiue32 = 
©ispidValueie = 20L, 
idispidStrValue = 21L, 

dispidFullPath = 22L, 

dispidAutoSendNotify = 23L, 

dispidNHandies = 24U 

dispidNNotifyMaps = 251, 

dispidSlobSi2e= 26U 

dispidRef Count = 27L, 

dispidVersion = 2BL, 

dispidUOM = 29L, 

dispidUnk = 30L, 

dispidValue = 43L, 

dispidCtoseWvMF = 31L, 

dispidAddNew = 32L, 

dispidAddNewEx = 33L, 

dispidSetFirsteiob = 34L, 

dispid&etNext&lob = 35L, 

dispidErase - 361, 

dispidErcseMMF = 37L, 

dispidNotifyHondle = 44L, 

dispidAValueB = 45L, 

dispidAVa!ue32 = 46L, 
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dispidAValuel6 = 47L. 
dtspidVaiueSD = 4BL, 
dispidlnsert = 38L, 
dispidResizeMMF = 39L, 
dispidSendNotify = 40L, 
dispidNotifyMap = 49L, 
dispidFormatMMF = 41L, 
dispidlndexOf = 42U 
dispidNotifyOnChange = SOL, 
eventidChange = IL, 
//}>AFX_DISPJD 

}; 

private". 

tGlob * eiobPtp; 
long datasize; 
CString m_&lobName; 
BOOL m_Notify; 
CMutex "SlobLock; 
IpMutex *MMFLock; 
iSString m_FullPath; 
ISString m_FileName; 
;fiit m_FileSi2e; 
^SaNDLE f; 
JIaNDLE hPileMapT; 
:||aNDLE s_hFileMap; 
ttontrol *lpView; 
|tf BYTc IpLcsT; 
JOOL m_AijtoNotify; 
iieng fn_MaxUnks; 
ill 

©String SPX_NOTrFy_MUTEX; 
i€String SPX_MMF_MUTtX; 

//private member functions 
long MMFCreate{void); 

long MMFOpenCLPCTSTTi. long, LPCTSTO, long); 

long MMFRemapVicw( long ); 

long MMF&et&lobPtr(LPCTSTR); 

tSlob *MMFNextAvaiieiob( long ); 

t&lob *MMFFirsteiobO; 

void MAAFErese&lob( t&lob *); 

long MMF&et&lobIx(LPCTSTR); 

void MMFResetSlobs(void); 

BOOL AddNotify(tSlob*,HWND); 

BOOL RemoveNotify(tSlob*,HWND); 

int FindHandle(HWND); 

void SendNotify(tSlob*, tControl*, short, short); 

void MMFCIear&lobBits(long BitMap); 

long SyncRleSizeQ; 

void SetBitMap(tSlob* ,long index); 

BOOL RemoveNotifyX(teiob* SlobPtr, HWND my_hWnd); 

long MMFCleareiobBit(teiob" SPtrJong index); 
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BOOL MotifyUstIsEmpty(teiob *lp6lob); 
long SetVisibleQ; 

3: 



;;';iSiSp'S^^ insert additiona, deCaratio. i..ediate, before the previo. line. 
#endif//ldefined(AFX_eLOBCU_H_5F20D2E4_788C.llDl_9A9B_020701045A6B_INaUDED) 
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// Copyright 1998, 1999 SPX Corporation 

// stdafx.cpp 1 source file that includes just the standord includes 

// stdaf x.pch will be the pre-compilcd header 

// stdaf x.obj will contain the pre-compiled type information 

#include "stdafx.h" 
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// Copyright 1998. 1999 SPX Corporation 

#if ldcfined(AFX_STl:>AFX_H_5F20D2DA_788C_llDl_9A9B_020701045A6B_INCLUt>EDJ 
#define AFX_STDAFX_H_5F20D2I>A_788C_11D1_9A9B_020701045A6B_INCLUDED_ 

#if _AASC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >- 1000 

// stdafx.h : Include file for standard system include files, 
// or project specific include files that are used frequently, 
// but are changed infrequently 

#def ine VC_EXTRALEAN // Exclude rarely-used stuff from Windows headers 

#include <af xctLh> // MFC support for ActiveX Controls 

// Delete the two includes below if you do not wish to use the MFC 
// database classes 

#iptlude <af xdb.h> // MFC database classes 
#iiitlude <af xdao.h> // MFC DAO database classes 

ai 

//iAFX_IN5ERT_LOCATTON3} 

//^^^icrosoft Developer Studio will insert additional declarations immediately before the previous line. 
#|r|dif // Idef ined(AFX_STDAFX_H_5F20D2DA_788C_llDl_9A9B_020701045A6B_INCLUDEDJ 



m 

r. x.y 

ill 
Ci 



1 



• 



// Copyright 1998. 1999 SPX Corporation 
//{{MO_t>EPENDtNCItS}} 

// Microsoft Developer Studio generated include file. 

// Used by Globxc 

// 

#def ine IDS_6L0B 1 

#def inc IDD_ABOUTB0X_eLOB 1 

#def ine IDB_SLOB 1 

#def ine IDI.ABOUTDLL 1 

#def ine IbSj5lOBJ>P& 2 

#def ine IDS_SL0B_PP6_CAPTT0N 200 

#def ine lOD.PROPPAeE.SLOB 200 



// Next defoult values for new objects 
// 

#if def APSTUDIO_INVOKED 
#if ndef APSTUDIO.READONLY.SYMBOLS 
#define_APS_NEXT_RESOURCE_VALUE 203 
#def ine _APS_NEXT_COMMAND_VALUE 32768 
##fine_APS_NEXT_CONTROL_VALUE 201 
#ikine_APS_NEXT_syMED_VALUE 101 
#4nclif 
#krtdif 




// Copyright 1998, 1999 SPX Corporation 

#if !defined(AFX_eLOBPPS_H_5F20D2E6_78BC_llDl_9A9B_020701045A6B_INCLUDEDJ 
#define AFX_SLOBPPG_H_5F20D2E6_788C_11D1_9A9B_020701045A6B_INCLUDED_ 

#if _MSC_VER >= 1000 
#pragmQ once 

#endif // _MSC_VER >= 1000 

// SlobPpg.h : Declaration of the CSIobPropPagc property poge class. 

//////////////////////////////////////////////////////////////////////////// 
// CGIobPropPoge : See GlobPpg.cpp.cpp for implementation. 

class CSIobPropPage : public COlePropertyPage 
{ 

DECLARE.byNCREATECCeiobPropPage) 
DECLARE_OLECREATB_EX(CGlobPropPage) 

/^Constructor 
piiilic: 
•^^eiobPropPageQ; 

/Et>ialog Data 
Pi/{{AFX_DATA(ceiobPropPoge) 
;f|num { IDD = IDD_PROPPAeE_SLOB ); 

// NOTE - CiassWizard will odd data members here. 
==3 // DO NOT EDIT what you see in these blocks of generated code ! 
1^/}}AFX_DATA 

111 • 
/llfmplementotion 

pfHtccted: 

void DoDataExchangc(CDataExchange* pDX); - // DDX/DDV support 

// Message maps 
protected: 

//{{AFX.M5S(CSIobPropPa9e) 

// NOTE - ClossWizard will add and remove member functions here. 
// DO NOT EDIT what you see in these blocks of generated code ! 
//}}AFX.MSS 

DECLARE.MESSAeE^MAPO 

}; 

//{{AFX_INSERT_LOCATION}} 

// Microsoft Developer Studio will insert additional declarations immediately before the previous line. 
#endif // !defined(AFX.£LOBPPe_H_5F20D2E6_7B8C_llDU9A9B_020701045A6B_INaUDED) 
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'Sub StartPrintingCTcmplatcNlamc As String) 
Dim OldRcgSection As String 



'Setup printer 

With f rmATPPrintxegistryl 

OldRcgSection = Section 

.Section = "Printer" 

.Value("Command") = "Print" 

.Value("Template") = TemplateNamc 

Section - OldftegSection 
End With 

*Start printing process 

f rmATPPrint-PrintControLCommand = SL_ModPrinterRequest 
End Sub 



